Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter. More...

Detailed Description

Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter.

See the documentation of setFFTI for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),

containing the periodic sequence whose FFT is to be computed.

Returns: fft : The output vector of the same type, kind, and size as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftpack, only: getFFTI

fft = getFFTI(data(:))

pm_fftpack::getFFTI
Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex...
Definition: pm_fftpack.F90:1567

pm_fftpack
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftpack.F90:205

Remarks: The procedures under discussion are impure.

Note: This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.

See also: getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_fftpack, only: getfactorFFT

6 use pm_fftpack, only: getFFTF, getFFTI

7 use pm_distUnif, only: getUnifRand

8 use pm_mathCompare, only: isClose

9 use pm_err, only: setAsserted

10

11 implicit none

12

13 integer(IK) :: i

14 integer(IK) :: lenData

15 type(display_type) :: disp

16 disp = display_type(file = "main.out.F90")

17

18 do i = 1, 5

19 block

20 use pm_kind, only: TKC => CKS

21 real(TKC) :: reltol

22 complex(TKC), allocatable :: data(:), adat(:)

23 call disp%show("lenData = getUnifRand(5, 100)")

24 lenData = getUnifRand(5, 100)

25 call disp%show("lenData")

26 call disp%show( lenData )

27 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

28 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

29 call disp%show("data")

30 call disp%show( data )

31 call disp%skip()

32 call disp%show("adat = getFFTI(getFFTF(data))")

33 adat = getFFTI(getFFTF(data))

34 call disp%show("adat")

35 call disp%show( adat )

36 call disp%show("reltol = sqrt(epsilon(1._TKC))")

37 reltol = sqrt(epsilon(1._TKC))

38 call disp%show("reltol")

39 call disp%show( reltol )

40 call disp%show("isClose(data, adat, reltol = reltol)")

41 call disp%show( isClose(data, adat, reltol = reltol) )

42 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

43 call setAsserted(all(isClose(data, adat, reltol = reltol)))

44 call disp%skip()

45 end block

46

47 block

48 use pm_kind, only: TKC => CKD

49 real(TKC) :: reltol

50 complex(TKC), allocatable :: data(:), adat(:)

51 call disp%show("lenData = getUnifRand(5, 100)")

52 lenData = getUnifRand(5, 100)

53 call disp%show("lenData")

54 call disp%show( lenData )

55 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

56 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

57 call disp%show("data")

58 call disp%show( data )

59 call disp%skip()

60 call disp%show("adat = getFFTI(getFFTF(data))")

61 adat = getFFTI(getFFTF(data))

62 call disp%show("adat")

63 call disp%show( adat )

64 call disp%show("reltol = sqrt(epsilon(1._TKC))")

65 reltol = sqrt(epsilon(1._TKC))

66 call disp%show("reltol")

67 call disp%show( reltol )

68 call disp%show("isClose(data, adat, reltol = reltol)")

69 call disp%show( isClose(data, adat, reltol = reltol) )

70 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

71 call setAsserted(all(isClose(data, adat, reltol = reltol)))

72 call disp%skip()

73 end block

74

75 block

76 use pm_kind, only: TKC => CKH

77 real(TKC) :: reltol

78 complex(TKC), allocatable :: data(:), adat(:)

79 call disp%show("lenData = getUnifRand(5, 100)")

80 lenData = getUnifRand(5, 100)

81 call disp%show("lenData")

82 call disp%show( lenData )

83 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

84 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

85 call disp%show("data")

86 call disp%show( data )

87 call disp%skip()

88 call disp%show("adat = getFFTI(getFFTF(data))")

89 adat = getFFTI(getFFTF(data))

90 call disp%show("adat")

91 call disp%show( adat )

92 call disp%show("reltol = sqrt(epsilon(1._TKC))")

93 reltol = sqrt(epsilon(1._TKC))

94 call disp%show("reltol")

95 call disp%show( reltol )

96 call disp%show("isClose(data, adat, reltol = reltol)")

97 call disp%show( isClose(data, adat, reltol = reltol) )

98 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

99 call setAsserted(all(isClose(data, adat, reltol = reltol)))

100 call disp%skip()

101 end block

102

103 block

104 use pm_kind, only: TKC => RKS

105 real(TKC) :: reltol

106 real(TKC), allocatable :: data(:), adat(:)

107 call disp%show("lenData = getUnifRand(5, 100)")

108 lenData = getUnifRand(5, 100)

109 call disp%show("lenData")

110 call disp%show( lenData )

111 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

112 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

113 call disp%show("data")

114 call disp%show( data )

115 call disp%skip()

116 call disp%show("adat = getFFTI(getFFTF(data))")

117 adat = getFFTI(getFFTF(data))

118 call disp%show("adat")

119 call disp%show( adat )

120 call disp%show("reltol = sqrt(epsilon(1._TKC))")

121 reltol = sqrt(epsilon(1._TKC))

122 call disp%show("reltol")

123 call disp%show( reltol )

124 call disp%show("isClose(data, adat, reltol = reltol)")

125 call disp%show( isClose(data, adat, reltol = reltol) )

126 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

127 call setAsserted(all(isClose(data, adat, reltol = reltol)))

128 call disp%skip()

129 end block

130

131 block

132 use pm_kind, only: TKC => RKD

133 real(TKC) :: reltol

134 real(TKC), allocatable :: data(:), adat(:)

135 call disp%show("lenData = getUnifRand(5, 100)")

136 lenData = getUnifRand(5, 100)

137 call disp%show("lenData")

138 call disp%show( lenData )

139 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

140 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

141 call disp%show("data")

142 call disp%show( data )

143 call disp%skip()

144 call disp%show("adat = getFFTI(getFFTF(data))")

145 adat = getFFTI(getFFTF(data))

146 call disp%show("adat")

147 call disp%show( adat )

148 call disp%show("reltol = sqrt(epsilon(1._TKC))")

149 reltol = sqrt(epsilon(1._TKC))

150 call disp%show("reltol")

151 call disp%show( reltol )

152 call disp%show("isClose(data, adat, reltol = reltol)")

153 call disp%show( isClose(data, adat, reltol = reltol) )

154 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

155 call setAsserted(all(isClose(data, adat, reltol = reltol)))

156 call disp%skip()

157 end block

158

159 block

160 use pm_kind, only: TKC => RKH

161 real(TKC) :: reltol

162 real(TKC), allocatable :: data(:), adat(:)

163 call disp%show("lenData = getUnifRand(5, 100)")

164 lenData = getUnifRand(5, 100)

165 call disp%show("lenData")

166 call disp%show( lenData )

167 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

168 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

169 call disp%show("data")

170 call disp%show( data )

171 call disp%skip()

172 call disp%show("adat = getFFTI(getFFTF(data))")

173 adat = getFFTI(getFFTF(data))

174 call disp%show("adat")

175 call disp%show( adat )

176 call disp%show("reltol = sqrt(epsilon(1._TKC))")

177 reltol = sqrt(epsilon(1._TKC))

178 call disp%show("reltol")

179 call disp%show( reltol )

180 call disp%show("isClose(data, adat, reltol = reltol)")

181 call disp%show( isClose(data, adat, reltol = reltol) )

182 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

183 call setAsserted(all(isClose(data, adat, reltol = reltol)))

184 call disp%skip()

185 end block

186 end do

187

188end program example

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4150

pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735

pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618

pm_fftpack::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftpack.F90:746

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508

pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:535

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541

pm_kind::CKH
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843

pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540

pm_kind::CKD
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:571

pm_kind::RKD
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:568

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539

pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858

pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567

pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)

2lenData

3+21

4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

5data

6(+1.60074091, +0.265059054), (+1.95257008, +0.595738232), (+1.11023068, +0.702779889E-1), (+1.82010400, +0.244132996), (+1.74282444, +0.129221618), (+1.87732804, +0.950795889), (+1.68111944, +0.268016636), (+1.59364617, +0.631788254), (+1.71923375, +0.657010376), (+1.98771238, +0.737530708), (+1.24244952, +0.327134907), (+1.72233915, +0.761882067E-1), (+1.49136472, +0.986075699), (+1.46115589, +0.904102385), (+1.75827682, +0.218664408E-1), (+1.32948160, +0.783721626), (+1.68630362, +0.725303948), (+1.81673181, +0.203476489), (+1.41740263, +0.454841673), (+1.61955357, +0.781706154), (+1.15067863, +0.516218901)

7

8adat = getFFTI(getFFTF(data))

9adat

10(+1.60074127, +0.265059143), (+1.95257008, +0.595738173), (+1.11023068, +0.702780560E-1), (+1.82010436, +0.244132951), (+1.74282479, +0.129221782), (+1.87732804, +0.950795949), (+1.68111932, +0.268016636), (+1.59364665, +0.631788433), (+1.71923375, +0.657010198), (+1.98771250, +0.737530708), (+1.24244988, +0.327134907), (+1.72233951, +0.761881396E-1), (+1.49136496, +0.986075759), (+1.46115565, +0.904102266), (+1.75827718, +0.218665097E-1), (+1.32948136, +0.783721566), (+1.68630350, +0.725303948), (+1.81673193, +0.203476518), (+1.41740310, +0.454841703), (+1.61955369, +0.781706214), (+1.15067852, +0.516218722)

11reltol = sqrt(epsilon(1._TKC))

12reltol

13+0.345266977E-3

14isClose(data, adat, reltol = reltol)

15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

16call setAsserted(all(isClose(data, adat, reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+53

21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

22data

23(+1.0265327720206900, +0.23332599087895312), (+1.6915348570716122, +0.12934252295306981E-1), (+1.4033774154770735, +0.14859478569475004E-1), (+1.3699644780335287, +0.55210036986099564), (+1.4198040759447577, +0.64859865206583844), (+1.7627801307920961, +0.75930356999950943), (+1.9369257488521865, +0.14581953865646924), (+1.2293190083913708, +0.99422115968531899E-1), (+1.0081527713073464, +0.17185537373154813), (+1.3843512819714747, +0.90482674257953533E-1), (+1.9152121707158170, +0.78435091125172152), (+1.0059136096399222, +0.49710895481860085), (+1.5750998920717025, +0.74675200328034541), (+1.8112525782703326, +0.42265530456473921), (+1.6704232114258759, +0.76225489841930127), (+1.0462293616426832, +0.23784580223524565), (+1.7162111090042873, +0.56422525907274579), (+1.3312968059100281, +0.21363175924702382E-2), (+1.5674427192031692, +0.40795701076151836), (+1.6572855460680036, +0.13018504186111746), (+1.9476865659229499, +0.52967772496746079), (+1.7567937660894661, +0.21362230235976176), (+1.9453073736241735, +0.98950045133524289), (+1.4147672701157590, +0.38810539441817737), (+1.8610611757793867, +0.89322824483234564), (+1.2813017877755906, +0.69257816615644474), (+1.4480143239919876, +0.90292299117711083), (+1.7800192731871709, +0.59587428955678523), (+1.4070370722937153, +0.63568423549922592), (+1.2571101145366175, +0.62042948743442228), (+1.6928577073508244, +0.21649099933455274), (+1.7573687140588445, +0.51636539549363936), (+1.4199512810996955, +0.81218662291399646), (+1.8974092440842298, +0.38539519382096232), (+1.8195542431531924, +0.34190974260939189), (+1.3346168311600533, +0.44812322506564584), (+1.8036614755963267, +0.83100611126576918), (+1.5050849593007323, +0.19721494489046143E-1), (+1.7503380142124230, +0.52807863542703515), (+1.1837033868876574, +0.90161303648389279), (+1.3380103958631171, +0.62791711250840054), (+1.0013050335380742, +0.64539527322199286), (+1.0086757713524750, +0.74747236115398275), (+1.4244126170835472, +0.46720630190198353), (+1.4818143938217208, +0.21885868753524795), (+1.6411233807657393, +0.47367292066905919), (+1.8037011755850347, +0.21082105067320223E-1), (+1.2268634944390697, +0.39880372246633933), (+1.5084894237577111, +0.78296912482417447), (+1.0498733244116238, +0.76167834733625628), (+1.4865562832444925, +0.11974826055641274), (+1.0643196196280076, +0.76863293112689568), (+1.1410722474233244, +0.12220231265962045)

24

25adat = getFFTI(getFFTF(data))

26adat

27(+1.0265327720206900, +0.23332599087895323), (+1.6915348570716129, +0.12934252295307003E-1), (+1.4033774154770737, +0.14859478569474680E-1), (+1.3699644780335289, +0.55210036986099542), (+1.4198040759447574, +0.64859865206583844), (+1.7627801307920961, +0.75930356999950954), (+1.9369257488521860, +0.14581953865646921), (+1.2293190083913699, +0.99422115968531788E-1), (+1.0081527713073462, +0.17185537373154816), (+1.3843512819714747, +0.90482674257953782E-1), (+1.9152121707158176, +0.78435091125172163), (+1.0059136096399217, +0.49710895481860140), (+1.5750998920717025, +0.74675200328034530), (+1.8112525782703315, +0.42265530456473904), (+1.6704232114258757, +0.76225489841930127), (+1.0462293616426839, +0.23784580223524560), (+1.7162111090042882, +0.56422525907274579), (+1.3312968059100290, +0.21363175924701962E-2), (+1.5674427192031697, +0.40795701076151836), (+1.6572855460680038, +0.13018504186111740), (+1.9476865659229496, +0.52967772496746079), (+1.7567937660894661, +0.21362230235976168), (+1.9453073736241731, +0.98950045133524289), (+1.4147672701157590, +0.38810539441817726), (+1.8610611757793865, +0.89322824483234575), (+1.2813017877755903, +0.69257816615644496), (+1.4480143239919869, +0.90292299117711072), (+1.7800192731871702, +0.59587428955678501), (+1.4070370722937153, +0.63568423549922615), (+1.2571101145366175, +0.62042948743442239), (+1.6928577073508244, +0.21649099933455263), (+1.7573687140588445, +0.51636539549363925), (+1.4199512810996953, +0.81218662291399635), (+1.8974092440842294, +0.38539519382096227), (+1.8195542431531924, +0.34190974260939178), (+1.3346168311600537, +0.44812322506564572), (+1.8036614755963274, +0.83100611126576918), (+1.5050849593007329, +0.19721494489046379E-1), (+1.7503380142124239, +0.52807863542703493), (+1.1837033868876574, +0.90161303648389302), (+1.3380103958631160, +0.62791711250840043), (+1.0013050335380744, +0.64539527322199275), (+1.0086757713524745, +0.74747236115398308), (+1.4244126170835478, +0.46720630190198376), (+1.4818143938217208, +0.21885868753524809), (+1.6411233807657386, +0.47367292066905919), (+1.8037011755850332, +0.21082105067320184E-1), (+1.2268634944390691, +0.39880372246633916), (+1.5084894237577113, +0.78296912482417436), (+1.0498733244116236, +0.76167834733625617), (+1.4865562832444927, +0.11974826055641276), (+1.0643196196280080, +0.76863293112689579), (+1.1410722474233250, +0.12220231265962034)

28reltol = sqrt(epsilon(1._TKC))

29reltol

30+0.14901161193847656E-7

31isClose(data, adat, reltol = reltol)

32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

33call setAsserted(all(isClose(data, adat, reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+85

38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

39data

40(+1.86408155802619487422266190461367331, +0.403677022309214345061377556437535051), (+1.92327103688726674609568584842448336, +0.116238785249038609304406525459454673), (+1.55051283123216924394060380404769309, +0.380562450679425835780471246009535613), (+1.51061882979313957560241591194450764, +0.640885426716697305720818157004085288), (+1.11882029398438343012939179328335113, +0.689347860176257866048270503098104152), (+1.10698888412450394394863718553750300, +0.592419604551820716317551117439841683), (+1.32654823158793895247157375328214796, +0.200732522854321475032023575801815228), (+1.19997548419179186251501954360227145, +0.278483916990177265598656555222505067), (+1.66374417186458599829598518931951961, +0.897958370841780409783327380103233849E-2), (+1.83533994741791645475309000891716867, +0.431085207576296161386325225580950067), (+1.67128157946596729768510730094397163, +0.569988298245422841660437246166210565E-1), (+1.27644044337411416481169173447943632, +0.341602582620687882033120483007280874), (+1.77694586738271734715975731951324717, +0.577560465186736158844608741915832715), (+1.32633464930470720364764466293119401, +0.582751680812507689274068546461567221), (+1.13436848548762453271206486583419098, +0.432540234355879344203690172661148969), (+1.70316973439629646059478708923814452, +0.581127889076824299176480727393496912), (+1.41712911448358831135280126942427394, +0.524091770231668719668475878274531691), (+1.07364199253362442448248797649889038, +0.496296026340124999671806494290442218), (+1.07013856632869000581332632405716800, +0.875947486309310501235874804976148090E-1), (+1.96041765726369944533097861055193239, +0.192752847627923452238352416374137483E-1), (+1.50811579354262299175710421599779701, +0.710584786315726189787704200408986283), (+1.84204144185307170187420047923194856, +0.946551145562257670557313710594850009), (+1.15159708152623986977817198354395197, +0.941354012437783499067211135393982036), (+1.40272826483631226311764026179129072, +0.365008337395286762987119647463027562), (+1.16935288837773779592900645398306286, +0.484401246301726872653934597812533504), (+1.97395890072942772639610100519184125, +0.970617512665481945361968320166447554), (+1.42828816028931000855572038632327565, +0.151674942747495588571967979096265652), (+1.99784999782042877035469033869367933, +0.698794878719030888284022146860160298), (+1.16582443221606062235666855384806975, +0.455106630111088000564349910270532028), (+1.16340351505847215155733360257984167, +0.537863998835759073812934483354649646), (+1.15081375732706746915395870779944579, +0.923456707416387974197411297683495775), (+1.51839783053503475124578547136226609, +0.132335345325601992542610058470228654), (+1.29747149477828823973622648535917393, +0.965849685941835015545275695540329512), (+1.72691959244924394319807855069803653, +0.873264638772519024234944802963307668), (+1.55921198373049348585002479911885940, +0.742341531188061716431939335460304514), (+1.40505250704368293300453123292623358, +0.254334654129999676882868225886139539), (+1.17968811569991696354673296419139032, +0.928440406508325598492343219417200114), (+1.85299402533900525758239128474498131, +0.878566683341419780875122467940652619), (+1.20222818521795387692368381150723452, +0.246449903909392281048523006097325126E-1), (+1.20799448762557772381647065210208773, +0.993795229463524039548989574074324473), (+1.07620563737609473921822705214827377, +0.629177502463951327498473965023309615), (+1.04095376360293823384211608893126685, +0.217158566432760985675742647678762115), (+1.81427771244996881437963014475622126, +0.222415631187419603702111709576395290), (+1.78696920446662411369809793349173694, +0.937787181319346846849488940667676569), (+1.11497605400760225825222436001710804, +0.709204167878599346376047530058512966), (+1.15591033471463106505412295880049265, +0.888365500966538585350418321760994998), (+1.65948239316778341245362415327159080, +0.850443537156465776619851467673519538), (+1.93439542933307427172893534294381701, +0.740501284217653241586448123019664594), (+1.48517960584133036376824704892860798, +0.453852930857106526528952841537124133), (+1.45017815500742338286311116735723374, +0.967431600723948357587910959278863830), (+1.44160826735637661541349783176335238, +0.374992754107264067416457328860023044), (+1.41900750241230091687906503080178940, +0.395077266287964018993952061990273318E-1), (+1.12372209349498162838746040070763531, +0.961175236540754498891691749292762534), (+1.24491142271330435791026838701031872, +0.358932804036586972231881071317315316), (+1.10870203799242118686918378399419008, +0.498650447703561141095807500606914802), (+1.11379226085633996231523755660883443, +0.369777262586224574611559572478550569), (+1.40551738239359517555891535662535717, +0.955680868603144700243517187458983402), (+1.60667840964912971990767626872717071, +0.657182873903259557186548480691892387), (+1.55274270937152285317373172044897968, +0.893470071087070420744855233741912527E-1), (+1.18253593824982642725432118999530319, +0.789644221971512009858871424589003995), (+1.82094249736741935711122719472198273, +0.117969433833719339683863461412166802), (+1.52275234654577011858083886629871513, +0.513251862234146923907541437545218020), (+1.18866903336731871823012288151968287, +0.601185831021651401359391838218667486E-1), (+1.65813562822537763774034200793615486, +0.579010210597971693021896745684336718), (+1.53304507429428452444178537282664600, +0.821497727672667958772675883990977705), (+1.36502827441878691922971621488272329, +0.320683449957476664503231182144053915), (+1.78883276149136289435033790966768847, +0.202699763616946347655543624659030529), (+1.03299455325815356115759793897845075, +0.522308650831704611943573705288756502), (+1.00529766715113452030439819533345105, +0.140262493704420511990911452621271594), (+1.75491216647274305577608913222609649, +0.940882900498529676310427468761761706), (+1.21644698287928893018666619335174807, +0.459447321435624319925298371306297777), (+1.25169698593432439802459590859625061, +0.428806672164730885868128218097195978), (+1.92508166443228897728184869220780751, +0.918437788483225992374260446859463991), (+1.49877654633925979660167234241338493, +0.322684975708608657848910595975028962), (+1.38891474177945872491211998007486228, +0.747647718313774114428827174848477775), (+1.78339921093505146309606550785793058, +0.213705785917817672624127616917048357), (+1.41502924392370436228048801835232490, +0.788099589462700403242695920991454071), (+1.23074333950534002898619850831431776, +0.190693974751471742950151828343308322), (+1.27057344686273424084122852220873459, +0.528354368884611653368254807259236560), (+1.56254280838301906563841940286565899, +0.114690565859682803368726516053790254), (+1.06727574284354409645616403104668352, +0.621552645140548993554771108797333386), (+1.04742240337012332203830692955905432, +0.721723523479062029898276036066602005), (+1.80747812305312255768595568471025808, +0.329625114981026412818167548183776065), (+1.75721437811301334899931738194391071, +0.660047784281223183850973718204039296), (+1.48809783121928969988719648376551888, +0.714771371936920629998978626642572019)

41

42adat = getFFTI(getFFTF(data))

43adat

44(+1.86408155802619487422266190461367331, +0.403677022309214345061377556437535339), (+1.92327103688726674609568584842448317, +0.116238785249038609304406525459454612), (+1.55051283123216924394060380404769232, +0.380562450679425835780471246009535516), (+1.51061882979313957560241591194450745, +0.640885426716697305720818157004085288), (+1.11882029398438343012939179328335113, +0.689347860176257866048270503098104056), (+1.10698888412450394394863718553750300, +0.592419604551820716317551117439841779), (+1.32654823158793895247157375328214796, +0.200732522854321475032023575801815396), (+1.19997548419179186251501954360227145, +0.278483916990177265598656555222504971), (+1.66374417186458599829598518931951980, +0.897958370841780409783327380103247692E-2), (+1.83533994741791645475309000891716925, +0.431085207576296161386325225580950163), (+1.67128157946596729768510730094397144, +0.569988298245422841660437246166211047E-1), (+1.27644044337411416481169173447943593, +0.341602582620687882033120483007280970), (+1.77694586738271734715975731951324737, +0.577560465186736158844608741915832715), (+1.32633464930470720364764466293119363, +0.582751680812507689274068546461566835), (+1.13436848548762453271206486583419060, +0.432540234355879344203690172661148776), (+1.70316973439629646059478708923814336, +0.581127889076824299176480727393496719), (+1.41712911448358831135280126942427375, +0.524091770231668719668475878274531595), (+1.07364199253362442448248797649889076, +0.496296026340124999671806494290442218), (+1.07013856632869000581332632405716780, +0.875947486309310501235874804976146405E-1), (+1.96041765726369944533097861055193201, +0.192752847627923452238352416374137242E-1), (+1.50811579354262299175710421599779643, +0.710584786315726189787704200408986187), (+1.84204144185307170187420047923194837, +0.946551145562257670557313710594850009), (+1.15159708152623986977817198354395197, +0.941354012437783499067211135393982036), (+1.40272826483631226311764026179129091, +0.365008337395286762987119647463027706), (+1.16935288837773779592900645398306247, +0.484401246301726872653934597812533600), (+1.97395890072942772639610100519184202, +0.970617512665481945361968320166447843), (+1.42828816028931000855572038632327603, +0.151674942747495588571967979096265821), (+1.99784999782042877035469033869367971, +0.698794878719030888284022146860160105), (+1.16582443221606062235666855384807014, +0.455106630111088000564349910270532269), (+1.16340351505847215155733360257984206, +0.537863998835759073812934483354649935), (+1.15081375732706746915395870779944540, +0.923456707416387974197411297683495871), (+1.51839783053503475124578547136226589, +0.132335345325601992542610058470228678), (+1.29747149477828823973622648535917373, +0.965849685941835015545275695540329705), (+1.72691959244924394319807855069803634, +0.873264638772519024234944802963307764), (+1.55921198373049348585002479911885959, +0.742341531188061716431939335460304706), (+1.40505250704368293300453123292623377, +0.254334654129999676882868225886139491), (+1.17968811569991696354673296419138975, +0.928440406508325598492343219417199825), (+1.85299402533900525758239128474498074, +0.878566683341419780875122467940652716), (+1.20222818521795387692368381150723471, +0.246449903909392281048523006097323983E-1), (+1.20799448762557772381647065210208793, +0.993795229463524039548989574074324184), (+1.07620563737609473921822705214827377, +0.629177502463951327498473965023309904), (+1.04095376360293823384211608893126685, +0.217158566432760985675742647678762187), (+1.81427771244996881437963014475622203, +0.222415631187419603702111709576395506), (+1.78696920446662411369809793349173714, +0.937787181319346846849488940667676858), (+1.11497605400760225825222436001710804, +0.709204167878599346376047530058512966), (+1.15591033471463106505412295880049284, +0.888365500966538585350418321760995094), (+1.65948239316778341245362415327159099, +0.850443537156465776619851467673519731), (+1.93439542933307427172893534294381720, +0.740501284217653241586448123019664401), (+1.48517960584133036376824704892860721, +0.453852930857106526528952841537124133), (+1.45017815500742338286311116735723355, +0.967431600723948357587910959278863830), (+1.44160826735637661541349783176335200, +0.374992754107264067416457328860022900), (+1.41900750241230091687906503080178940, +0.395077266287964018993952061990275846E-1), (+1.12372209349498162838746040070763512, +0.961175236540754498891691749292762534), (+1.24491142271330435791026838701031834, +0.358932804036586972231881071317315268), (+1.10870203799242118686918378399418969, +0.498650447703561141095807500606914657), (+1.11379226085633996231523755660883443, +0.369777262586224574611559572478550617), (+1.40551738239359517555891535662535717, +0.955680868603144700243517187458983306), (+1.60667840964912971990767626872717129, +0.657182873903259557186548480691892868), (+1.55274270937152285317373172044897968, +0.893470071087070420744855233741914693E-1), (+1.18253593824982642725432118999530377, +0.789644221971512009858871424589004187), (+1.82094249736741935711122719472198350, +0.117969433833719339683863461412166994), (+1.52275234654577011858083886629871513, +0.513251862234146923907541437545218020), (+1.18866903336731871823012288151968326, +0.601185831021651401359391838218665981E-1), (+1.65813562822537763774034200793615525, +0.579010210597971693021896745684336815), (+1.53304507429428452444178537282664619, +0.821497727672667958772675883990977801), (+1.36502827441878691922971621488272252, +0.320683449957476664503231182144053771), (+1.78883276149136289435033790966768789, +0.202699763616946347655543624659030360), (+1.03299455325815356115759793897845036, +0.522308650831704611943573705288756406), (+1.00529766715113452030439819533345162, +0.140262493704420511990911452621271691), (+1.75491216647274305577608913222609629, +0.940882900498529676310427468761761706), (+1.21644698287928893018666619335174710, +0.459447321435624319925298371306297681), (+1.25169698593432439802459590859625081, +0.428806672164730885868128218097195496), (+1.92508166443228897728184869220780713, +0.918437788483225992374260446859464087), (+1.49877654633925979660167234241338473, +0.322684975708608657848910595975028962), (+1.38891474177945872491211998007486266, +0.747647718313774114428827174848478064), (+1.78339921093505146309606550785793077, +0.213705785917817672624127616917048309), (+1.41502924392370436228048801835232548, +0.788099589462700403242695920991454071), (+1.23074333950534002898619850831431814, +0.190693974751471742950151828343308395), (+1.27057344686273424084122852220873439, +0.528354368884611653368254807259236560), (+1.56254280838301906563841940286565919, +0.114690565859682803368726516053790411), (+1.06727574284354409645616403104668391, +0.621552645140548993554771108797333675), (+1.04742240337012332203830692955905432, +0.721723523479062029898276036066602102), (+1.80747812305312255768595568471025808, +0.329625114981026412818167548183775969), (+1.75721437811301334899931738194390994, +0.660047784281223183850973718204039200), (+1.48809783121928969988719648376551869, +0.714771371936920629998978626642572019)

45reltol = sqrt(epsilon(1._TKC))

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, adat, reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

50call setAsserted(all(isClose(data, adat, reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+89

55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

56data

57+1.22716570, +1.28702509, +1.46571994, +1.94928265, +1.40931487, +1.40573525, +1.32352400, +1.77272451, +1.13311005, +1.60271835, +1.66023421, +1.94378567, +1.48078227, +1.61809921, +1.98760474, +1.67471182, +1.52029228, +1.32250392, +1.61435378, +1.42843902, +1.81156492, +1.51051342, +1.93668795, +1.85434008, +1.47603893, +1.77211428, +1.19305825, +1.24677145, +1.99825299, +1.48677981, +1.40835869, +1.71860695, +1.89558196, +1.19234228, +1.81581593, +1.62289047, +1.93771458, +1.41832590, +1.13514447, +1.38118255, +1.71616185, +1.36971414, +1.42921817, +1.52410722, +1.05326867, +1.23710477, +1.43941641, +1.96039903, +1.35092854, +1.71621799, +1.02554965, +1.87272763, +1.11460984, +1.95270681, +1.28441477, +1.45634031, +1.76400709, +1.93492651, +1.79440498, +1.02963960, +1.66098297, +1.46955371, +1.14684093, +1.91457152, +1.80375600, +1.91545081, +1.53539407, +1.63847733, +1.98901641, +1.35558844, +1.27599311, +1.17857373, +1.03301930, +1.67122614, +1.00782871, +1.32322609, +1.09417033, +1.73824191, +1.88026583, +1.32144582, +1.33529806, +1.44771266, +1.95416141, +1.23390198, +1.16370225, +1.36600852, +1.28805184, +1.68728065, +1.32781887

58

59adat = getFFTI(getFFTF(data))

60adat

61+1.22716630, +1.28702497, +1.46572053, +1.94928217, +1.40931582, +1.40573514, +1.32352495, +1.77272260, +1.13311291, +1.60271740, +1.66023445, +1.94378304, +1.48078454, +1.61809981, +1.98760033, +1.67471182, +1.52029216, +1.32250619, +1.61435091, +1.42844152, +1.81155980, +1.51051724, +1.93668377, +1.85433590, +1.47604203, +1.77210915, +1.19306278, +1.24677742, +1.99824131, +1.48678362, +1.40836120, +1.71860480, +1.89557302, +1.19235539, +1.81580746, +1.62289274, +1.93770492, +1.41832995, +1.13515067, +1.38118315, +1.71615446, +1.36971819, +1.42921698, +1.52409899, +1.05327845, +1.23710597, +1.43941855, +1.96038222, +1.35093784, +1.71620727, +1.02556634, +1.87271082, +1.11462498, +1.95269179, +1.28442228, +1.45634079, +1.76400626, +1.93492079, +1.79439878, +1.02965164, +1.66097736, +1.46955276, +1.14684868, +1.91456449, +1.80375588, +1.91544509, +1.53539765, +1.63847768, +1.98900962, +1.35559082, +1.27599216, +1.17857468, +1.03302193, +1.67122006, +1.00783348, +1.32322335, +1.09417415, +1.73823977, +1.88026297, +1.32144678, +1.33529866, +1.44771397, +1.95415890, +1.23390329, +1.16370296, +1.36600852, +1.28805232, +1.68728054, +1.32781887

62reltol = sqrt(epsilon(1._TKC))

63reltol

64+0.345266977E-3

65isClose(data, adat, reltol = reltol)

66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

67call setAsserted(all(isClose(data, adat, reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+8

72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

73data

74+1.6590654084067589, +1.3624561256678702, +1.2964590240294802, +1.1045278716634401, +1.2652101684437349, +1.8732995125730665, +1.8510787990130941, +1.6629842048575947

75

76adat = getFFTI(getFFTF(data))

77adat

78+1.6590654084067591, +1.3624561256678702, +1.2964590240294802, +1.1045278716634401, +1.2652101684437351, +1.8732995125730665, +1.8510787990130941, +1.6629842048575947

79reltol = sqrt(epsilon(1._TKC))

80reltol

81+0.14901161193847656E-7

82isClose(data, adat, reltol = reltol)

83T, T, T, T, T, T, T, T

84call setAsserted(all(isClose(data, adat, reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+5

89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

90data

91+1.91733068068582213778293577025870400, +1.51155020663465287367512138738608967, +1.31726021575284480409321860275723460, +1.21382434749810574992287031130971186, +1.10863016533869023116869148680201940

92

93adat = getFFTI(getFFTF(data))

94adat

95+1.91733068068582213778293577025870381, +1.51155020663465287367512138738608967, +1.31726021575284480409321860275723460, +1.21382434749810574992287031130971206, +1.10863016533869023116869148680201940

96reltol = sqrt(epsilon(1._TKC))

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, adat, reltol = reltol)

100T, T, T, T, T

101call setAsserted(all(isClose(data, adat, reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+54

106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

107data

108(+1.10164917, +0.126075745), (+1.45890474, +0.771777987), (+1.27679586, +0.315610945), (+1.71293485, +0.275003910E-2), (+1.57725906, +0.954584360), (+1.48424172, +0.999343097), (+1.37210536, +0.882098079E-1), (+1.70302892, +0.263207912), (+1.23798025, +0.224713981), (+1.94750226, +0.983346999), (+1.71831024, +0.480827391), (+1.90713632, +0.369256377), (+1.74432826, +0.779801011), (+1.71348286, +0.274383485), (+1.64817452, +0.223720551), (+1.47288513, +0.667546928), (+1.86636448, +0.956103861), (+1.25419450, +0.252479970), (+1.58054638, +0.354235590), (+1.40710151, +0.842423856), (+1.93771648, +0.507844388), (+1.96076596, +0.202474833), (+1.63226986, +0.436343431), (+1.99686170, +0.711276054), (+1.30830359, +0.484912872), (+1.69707417, +0.603224456), (+1.42923379, +0.684321523E-1), (+1.79741931, +0.153665721), (+1.93566573, +0.381332934), (+1.46375918, +0.893880725), (+1.64710832, +0.479839861), (+1.19711256, +0.486145675), (+1.86272097, +0.404251397), (+1.03835416, +0.203602910), (+1.17697763, +0.115385830), (+1.52696705, +0.825039148E-1), (+1.40482330, +0.555290103), (+1.74475217, +0.299059272), (+1.02119029, +0.121496320), (+1.42101789, +0.562092364), (+1.91475046, +0.445637465), (+1.39236999, +0.490047932E-1), (+1.35983992, +0.281809509), (+1.78464305, +0.581176579), (+1.82062674, +0.277756214), (+1.39548278, +0.630780399), (+1.34441710, +0.727153480), (+1.98861670, +0.157095194), (+1.69269109, +0.439188421), (+1.80032206, +0.904005349), (+1.40874481, +0.414416552), (+1.37804413, +0.201774597), (+1.11061895, +0.904191434), (+1.32926536, +0.680544913)

109

110adat = getFFTI(getFFTF(data))

111adat

112(+1.10164917, +0.126075730), (+1.45890450, +0.771778047), (+1.27679574, +0.315611035), (+1.71293485, +0.275011407E-2), (+1.57725918, +0.954584420), (+1.48424160, +0.999343157), (+1.37210548, +0.882097855E-1), (+1.70302880, +0.263207883), (+1.23798037, +0.224713996), (+1.94750202, +0.983346999), (+1.71831036, +0.480827332), (+1.90713596, +0.369256407), (+1.74432826, +0.779801071), (+1.71348274, +0.274383485), (+1.64817441, +0.223720580), (+1.47288501, +0.667547047), (+1.86636472, +0.956103861), (+1.25419462, +0.252479941), (+1.58054638, +0.354235590), (+1.40710151, +0.842423856), (+1.93771648, +0.507844508), (+1.96076596, +0.202474907), (+1.63227010, +0.436343372), (+1.99686146, +0.711276114), (+1.30830371, +0.484912902), (+1.69707394, +0.603224456), (+1.42923403, +0.684321448E-1), (+1.79741895, +0.153665796), (+1.93566585, +0.381332994), (+1.46375883, +0.893880785), (+1.64710832, +0.479839832), (+1.19711244, +0.486145794), (+1.86272097, +0.404251456), (+1.03835416, +0.203602999), (+1.17697763, +0.115385801), (+1.52696705, +0.825040266E-1), (+1.40482330, +0.555290103), (+1.74475193, +0.299059331), (+1.02119029, +0.121496290), (+1.42101765, +0.562092423), (+1.91475070, +0.445637465), (+1.39236987, +0.490048006E-1), (+1.35984004, +0.281809598), (+1.78464293, +0.581176579), (+1.82062674, +0.277756155), (+1.39548266, +0.630780399), (+1.34441745, +0.727153361), (+1.98861659, +0.157095239), (+1.69269109, +0.439188421), (+1.80032206, +0.904005349), (+1.40874481, +0.414416552), (+1.37804413, +0.201774627), (+1.11061895, +0.904191494), (+1.32926548, +0.680544972)

113reltol = sqrt(epsilon(1._TKC))

114reltol

115+0.345266977E-3

116isClose(data, adat, reltol = reltol)

117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

118call setAsserted(all(isClose(data, adat, reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+33

123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

124data

125(+1.5781349463039387, +0.49487130871473251), (+1.6816864393507340, +0.68012366403964908), (+1.8808826072024463, +0.79214139678165141), (+1.1770936817973754, +0.79092406257937176), (+1.8436819841878875, +0.49332460855728166), (+1.0248313856993623, +0.52676694130109358), (+1.0479995188065376, +0.30834927613314744E-1), (+1.6848658471401285, +0.89924362063306895), (+1.4875515257463943, +0.76656610403704095), (+1.5711998893417354, +0.81288862399595530), (+1.8369201472177517, +0.17110757058961790), (+1.0752318562359702, +0.75275057000825929E-1), (+1.0528665391969505, +0.49949716864393989), (+1.7487273682412749, +0.30243012511528367), (+1.9331418116732473, +0.10032939569683785), (+1.0289070116482981, +0.92291523312301238), (+1.5206149519031542, +0.34179092488874296), (+1.3198741722756937, +0.94040204920715531), (+1.1404470240233424, +0.44140500961919071), (+1.3511108478902889, +0.96207512152258368), (+1.0552676288862135, +0.83565486446012649), (+1.8223207945078106, +0.75642089587558903), (+1.9373763725579924, +0.64295116770233152), (+1.3500556869835592, +0.59648463834677024), (+1.7649920388070002, +0.26166558341547741), (+1.0305616223846230, +0.36454714851883407), (+1.3099885264730888, +0.47116821485349170), (+1.6198784136404218, +0.38964697846242458E-1), (+1.7006812901328776, +0.20078651513134615), (+1.6583176173935634, +0.75457402763180870), (+1.1939895846918454, +0.53555020509790663E-1), (+1.7185049289861802, +0.52010613732825783E-1), (+1.6567430152825522, +0.79086577002536251)

126

127adat = getFFTI(getFFTF(data))

128adat

129(+1.5781349463039382, +0.49487130871473239), (+1.6816864393507347, +0.68012366403964919), (+1.8808826072024467, +0.79214139678165130), (+1.1770936817973758, +0.79092406257937187), (+1.8436819841878878, +0.49332460855728155), (+1.0248313856993621, +0.52676694130109358), (+1.0479995188065374, +0.30834927613314380E-1), (+1.6848658471401288, +0.89924362063306873), (+1.4875515257463952, +0.76656610403704084), (+1.5711998893417358, +0.81288862399595507), (+1.8369201472177523, +0.17110757058961801), (+1.0752318562359697, +0.75275057000825873E-1), (+1.0528665391969512, +0.49949716864394006), (+1.7487273682412758, +0.30243012511528328), (+1.9331418116732473, +0.10032939569683801), (+1.0289070116482983, +0.92291523312301205), (+1.5206149519031538, +0.34179092488874252), (+1.3198741722756939, +0.94040204920715487), (+1.1404470240233431, +0.44140500961919060), (+1.3511108478902896, +0.96207512152258390), (+1.0552676288862139, +0.83565486446012649), (+1.8223207945078108, +0.75642089587558903), (+1.9373763725579924, +0.64295116770233107), (+1.3500556869835596, +0.59648463834677035), (+1.7649920388070006, +0.26166558341547724), (+1.0305616223846235, +0.36454714851883396), (+1.3099885264730891, +0.47116821485349170), (+1.6198784136404212, +0.38964697846242652E-1), (+1.7006812901328774, +0.20078651513134591), (+1.6583176173935634, +0.75457402763180859), (+1.1939895846918462, +0.53555020509790822E-1), (+1.7185049289861809, +0.52010613732825804E-1), (+1.6567430152825529, +0.79086577002536240)

130reltol = sqrt(epsilon(1._TKC))

131reltol

132+0.14901161193847656E-7

133isClose(data, adat, reltol = reltol)

134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

135call setAsserted(all(isClose(data, adat, reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+18

140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

141data

142(+1.99160553791245660777266465459177612, +0.636151758321632436423946624807990545E-2), (+1.54416133028551004981465185410394087, +0.986955170852295375028360496684858680), (+1.11313906718465586940955108421798719, +0.394979229876628727035900748364762260), (+1.55217739442279156302835893346139056, +0.199309288961646855760861659007893856), (+1.65467864978102911456021624324848079, +0.359950152162542729980953013494811721), (+1.75728452089019760946591922111242722, +0.621857967604508560391529604198337287), (+1.21152862355167489120370838061875554, +0.653127175614900506654126102650210183E-1), (+1.73206636459920102659267936084445421, +0.127249945594139144592367019769043524), (+1.11440344759605038115755774609738871, +0.161452040564020865075520337941877612E-1), (+1.10901566736854138821762312069414257, +0.652985006038123761777200918095898802), (+1.97966879801931477579258776747359797, +0.395263563921661983123011495304935293), (+1.52422737427731976010051051458787787, +0.788003738241423441678213942876566742), (+1.57947655998331323746566949419307928, +0.699953504445662011118956949653706180E-1), (+1.01068369489938075148868646119346695, +0.949804654153784250655014630169307575), (+1.08025943310870967908499654111233941, +0.551983852088942934223347344786002116), (+1.69249185762971864589917911553437360, +0.149460553061895873544476488843572500), (+1.78092804584461095614196015295297249, +0.315632743531411310007555925824693959), (+1.75245470407765089739283501720154022, +0.374492353057514636230522976950620131)

143

144adat = getFFTI(getFFTF(data))

145adat

146(+1.99160553791245660777266465459177612, +0.636151758321632436423946624807984075E-2), (+1.54416133028551004981465185410394125, +0.986955170852295375028360496684858584), (+1.11313906718465586940955108421798719, +0.394979229876628727035900748364762116), (+1.55217739442279156302835893346139056, +0.199309288961646855760861659007893760), (+1.65467864978102911456021624324848060, +0.359950152162542729980953013494811769), (+1.75728452089019760946591922111242722, +0.621857967604508560391529604198337191), (+1.21152862355167489120370838061875516, +0.653127175614900506654126102650209099E-1), (+1.73206636459920102659267936084445421, +0.127249945594139144592367019769043572), (+1.11440344759605038115755774609738871, +0.161452040564020865075520337941877070E-1), (+1.10901566736854138821762312069414238, +0.652985006038123761777200918095898802), (+1.97966879801931477579258776747359777, +0.395263563921661983123011495304935245), (+1.52422737427731976010051051458787787, +0.788003738241423441678213942876566549), (+1.57947655998331323746566949419307928, +0.699953504445662011118956949653705458E-1), (+1.01068369489938075148868646119346695, +0.949804654153784250655014630169307478), (+1.08025943310870967908499654111233922, +0.551983852088942934223347344786001924), (+1.69249185762971864589917911553437322, +0.149460553061895873544476488843572524), (+1.78092804584461095614196015295297229, +0.315632743531411310007555925824694007), (+1.75245470407765089739283501720154003, +0.374492353057514636230522976950620275)

147reltol = sqrt(epsilon(1._TKC))

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, adat, reltol = reltol)

151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

152call setAsserted(all(isClose(data, adat, reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+39

157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

158data

159+1.52586973, +1.04682744, +1.05620241, +1.71823192, +1.53369534, +1.59043813, +1.10457480, +1.12882006, +1.93733025, +1.82244849, +1.25743175, +1.99961734, +1.32114589, +1.94272017, +1.48813307, +1.12078106, +1.74372172, +1.44474018, +1.10066891, +1.16019416, +1.03931141, +1.27434516, +1.62083912, +1.50533056, +1.62135410, +1.40239930, +1.91004658, +1.68676543, +1.67385149, +1.59283721, +1.38124371, +1.88467574, +1.73229742, +1.46058798, +1.67669225, +1.69631934, +1.95924664, +1.90552354, +1.45412016

160

161adat = getFFTI(getFFTF(data))

162adat

163+1.52586985, +1.04682732, +1.05620205, +1.71823180, +1.53369474, +1.59043777, +1.10457468, +1.12881958, +1.93733001, +1.82244813, +1.25743103, +1.99961674, +1.32114553, +1.94272006, +1.48813283, +1.12078059, +1.74372101, +1.44473958, +1.10066903, +1.16019475, +1.03931177, +1.27434528, +1.62083924, +1.50533056, +1.62135351, +1.40239871, +1.91004598, +1.68676507, +1.67385125, +1.59283686, +1.38124323, +1.88467503, +1.73229694, +1.46058762, +1.67669177, +1.69631898, +1.95924675, +1.90552294, +1.45411992

164reltol = sqrt(epsilon(1._TKC))

165reltol

166+0.345266977E-3

167isClose(data, adat, reltol = reltol)

168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

169call setAsserted(all(isClose(data, adat, reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+81

174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

175data

176+1.3713080133542972, +1.7395210086353499, +1.1093617397608644, +1.2615398906179434, +1.8546167262614310, +1.3015925589918083, +1.5168118291289809, +1.3643082123280919, +1.1468038604707873, +1.1328361898967994, +1.6062885685190027, +1.6908504573394514, +1.0585677319257927, +1.9401839777917727, +1.0868445388239774, +1.7388221345193589, +1.7062621541800569, +1.1574836142587888, +1.6634061507944469, +1.9581634713477385, +1.9876203500567167, +1.6196028194618313, +1.1285990675689654, +1.2216061521951447, +1.0553431874633388, +1.6761025498305360, +1.9985190652350306, +1.0717017902936929, +1.7162653477198515, +1.2235971889065023, +1.7566638586869936, +1.3044993698933629, +1.6895626971706013, +1.5463111173983939, +1.1646364310572166, +1.3639998778834728, +1.4005132305004160, +1.8189047016508026, +1.0205824662173497, +1.1662042923713853, +1.8269990610198485, +1.0943124417703940, +1.6170945827997842, +1.3926084074921019, +1.4497709276014619, +1.8976316879407773, +1.2787719915599671, +1.9152855351656308, +1.8230581718344483, +1.9939540019455322, +1.9596070024298915, +1.5221949340476884, +1.8402496993919644, +1.7243331141561526, +1.6379479456508754, +1.5161231558963988, +1.6454403477311286, +1.0880441157689849, +1.3124386152430709, +1.2056316800223159, +1.9724048988337510, +1.5624681046344031, +1.8222238413569232, +1.4040150331795149, +1.3241345854108553, +1.4539447774026408, +1.9331029201145751, +1.7395940554769349, +1.8876636683081944, +1.0833608637374641, +1.9862675588785152, +1.9637433606623222, +1.2492641033092617, +1.2994600869438164, +1.0645754210171701, +1.5056469666808328, +1.8854653666481376, +1.3859848451212944, +1.2788127917437553, +1.2588182196033586, +1.1218284471936251

177

178adat = getFFTI(getFFTF(data))

179adat

180+1.3713080133542970, +1.7395210086353494, +1.1093617397608644, +1.2615398906179429, +1.8546167262614304, +1.3015925589918085, +1.5168118291289807, +1.3643082123280919, +1.1468038604707873, +1.1328361898967994, +1.6062885685190025, +1.6908504573394509, +1.0585677319257925, +1.9401839777917722, +1.0868445388239776, +1.7388221345193584, +1.7062621541800567, +1.1574836142587890, +1.6634061507944466, +1.9581634713477380, +1.9876203500567164, +1.6196028194618313, +1.1285990675689652, +1.2216061521951447, +1.0553431874633386, +1.6761025498305355, +1.9985190652350306, +1.0717017902936925, +1.7162653477198513, +1.2235971889065023, +1.7566638586869932, +1.3044993698933625, +1.6895626971706010, +1.5463111173983937, +1.1646364310572166, +1.3639998778834732, +1.4005132305004158, +1.8189047016508024, +1.0205824662173495, +1.1662042923713851, +1.8269990610198479, +1.0943124417703942, +1.6170945827997840, +1.3926084074921017, +1.4497709276014616, +1.8976316879407773, +1.2787719915599671, +1.9152855351656302, +1.8230581718344481, +1.9939540019455313, +1.9596070024298913, +1.5221949340476881, +1.8402496993919639, +1.7243331141561524, +1.6379479456508748, +1.5161231558963983, +1.6454403477311283, +1.0880441157689846, +1.3124386152430705, +1.2056316800223161, +1.9724048988337508, +1.5624681046344031, +1.8222238413569234, +1.4040150331795147, +1.3241345854108553, +1.4539447774026406, +1.9331029201145749, +1.7395940554769349, +1.8876636683081942, +1.0833608637374641, +1.9862675588785148, +1.9637433606623220, +1.2492641033092615, +1.2994600869438162, +1.0645754210171696, +1.5056469666808328, +1.8854653666481371, +1.3859848451212944, +1.2788127917437548, +1.2588182196033584, +1.1218284471936253

181reltol = sqrt(epsilon(1._TKC))

182reltol

183+0.14901161193847656E-7

184isClose(data, adat, reltol = reltol)

185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

186call setAsserted(all(isClose(data, adat, reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+48

191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

192data

193+1.33013238261470392461845293536073537, +1.13550510981380137221770712436214466, +1.66757611091825684739435455996728345, +1.32370935040470421175795032936368241, +1.75740882785256787370818113060351894, +1.54240742479155697452328512644358069, +1.34412645832657995889635598993627194, +1.25547377859679485653135771055786973, +1.87568136875418577630730765390333490, +1.05778495905592519571425951565970806, +1.57736327838429579787519620258229736, +1.55656443176735499421761172963810703, +1.68230372755495179363326176410864233, +1.16002458867001906744268277620035030, +1.22486320603958282605607006579490695, +1.76452841871108405686940881437428482, +1.20797536024570642818610444279385192, +1.55777358724012836328846422427177936, +1.62681122304237683368416850354110279, +1.17121923154721083330855082254239736, +1.71748003050332231671551998185774834, +1.02693611329033815771702102531736577, +1.22055401655899090183119450706167818, +1.10795188223717783217129739469130099, +1.89310347606848986845495975599714798, +1.89578385098936494024927439049225704, +1.88259397444117756189016737519585049, +1.88559270388618348194460488677515833, +1.91348967311999063501589322325479096, +1.61038088873388891564059130876193183, +1.82231799977288049928889038625307510, +1.63280930463268866544032689713760113, +1.28533568073586821851434721955091028, +1.12598643652029543067256864804059866, +1.37792566655667782559301257095129417, +1.89570106052646505078948604920838752, +1.17490366680788946340595309965461959, +1.41587220673303453055511212150251293, +1.68043020693677169281558379200584471, +1.09451758320389748305026644014999906, +1.57113244358520811794791541760541259, +1.67701645802096828899681068400909607, +1.08147394796397204830875564761650046, +1.26104645808619619078931548486651458, +1.56271411191941088786963424212684871, +1.72750534878344107394030429523228144, +1.37733882215810711985270168162612081, +1.07551607989589028371278681428739218

194

195adat = getFFTI(getFFTF(data))

196adat

197+1.33013238261470392461845293536073537, +1.13550510981380137221770712436214427, +1.66757611091825684739435455996728384, +1.32370935040470421175795032936368184, +1.75740882785256787370818113060351837, +1.54240742479155697452328512644358030, +1.34412645832657995889635598993627175, +1.25547377859679485653135771055786954, +1.87568136875418577630730765390333470, +1.05778495905592519571425951565970767, +1.57736327838429579787519620258229774, +1.55656443176735499421761172963810664, +1.68230372755495179363326176410864213, +1.16002458867001906744268277620034992, +1.22486320603958282605607006579490695, +1.76452841871108405686940881437428463, +1.20797536024570642818610444279385192, +1.55777358724012836328846422427177898, +1.62681122304237683368416850354110298, +1.17121923154721083330855082254239716, +1.71748003050332231671551998185774776, +1.02693611329033815771702102531736557, +1.22055401655899090183119450706167799, +1.10795188223717783217129739469130080, +1.89310347606848986845495975599714779, +1.89578385098936494024927439049225665, +1.88259397444117756189016737519585088, +1.88559270388618348194460488677515795, +1.91348967311999063501589322325479096, +1.61038088873388891564059130876193145, +1.82231799977288049928889038625307510, +1.63280930463268866544032689713760094, +1.28533568073586821851434721955091048, +1.12598643652029543067256864804059828, +1.37792566655667782559301257095129456, +1.89570106052646505078948604920838733, +1.17490366680788946340595309965461940, +1.41587220673303453055511212150251293, +1.68043020693677169281558379200584432, +1.09451758320389748305026644014999887, +1.57113244358520811794791541760541259, +1.67701645802096828899681068400909568, +1.08147394796397204830875564761650123, +1.26104645808619619078931548486651420, +1.56271411191941088786963424212684833, +1.72750534878344107394030429523228125, +1.37733882215810711985270168162612081, +1.07551607989589028371278681428739198

198reltol = sqrt(epsilon(1._TKC))

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, adat, reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

203call setAsserted(all(isClose(data, adat, reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+21

208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

209data

210(+1.33515215, +0.245914221), (+1.35582042, +0.155110359E-1), (+1.54673767, +0.272277594), (+1.46234822, +0.637087643), (+1.20931089, +0.634716034), (+1.24303317, +0.940187752), (+1.34920430, +0.951291382), (+1.45027506, +0.896832347E-1), (+1.72711134, +0.857780278), (+1.56875944, +0.920573354), (+1.92003989, +0.584456980), (+1.59009433, +0.278079391), (+1.12080562, +0.635559559), (+1.50747728, +0.292776525), (+1.82679248, +0.350890338), (+1.23185229, +0.728720069), (+1.66042018, +0.275455713E-1), (+1.23044276, +0.848771036), (+1.25010180, +0.997937381), (+1.04105544, +0.236303449), (+1.15702319, +0.516144931)

211

212adat = getFFTI(getFFTF(data))

213adat

214(+1.33515251, +0.245914325), (+1.35582030, +0.155110136E-1), (+1.54673755, +0.272277564), (+1.46234846, +0.637087762), (+1.20931113, +0.634716153), (+1.24303329, +0.940187633), (+1.34920418, +0.951291263), (+1.45027542, +0.896833465E-1), (+1.72711110, +0.857780218), (+1.56875920, +0.920573294), (+1.92004001, +0.584456980), (+1.59009469, +0.278079450), (+1.12080550, +0.635559499), (+1.50747716, +0.292776525), (+1.82679296, +0.350890398), (+1.23185217, +0.728720009), (+1.66041982, +0.275454130E-1), (+1.23044312, +0.848771155), (+1.25010204, +0.997937441), (+1.04105532, +0.236303419), (+1.15702319, +0.516144872)

215reltol = sqrt(epsilon(1._TKC))

216reltol

217+0.345266977E-3

218isClose(data, adat, reltol = reltol)

219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

220call setAsserted(all(isClose(data, adat, reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+52

225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

226data

227(+1.1905239196041952, +0.51192280965096637), (+1.0095781527096448, +0.96742172000480942), (+1.9646974969336619, +0.29202196398785629), (+1.0376912210024358, +0.22793115287735655), (+1.6029595955139968, +0.34510186452047809), (+1.3153670551628962, +0.48887352529492789), (+1.6585141079993790, +0.79944435131153091), (+1.1064259471198692, +0.92137128388216083), (+1.4734648513758810, +0.12277940235483698), (+1.6763272413515813, +0.49869803059097606E-1), (+1.6516946387013687, +0.48409837952752066), (+1.7568963814723220, +0.59547513945352448), (+1.0972493354384538, +0.95817048049272346), (+1.4290499257711180, +0.36260550887385590), (+1.5110007273089776, +0.15541277169935575), (+1.5117451161559057, +0.17655395026523857), (+1.3585490178295527, +0.45979877588669149), (+1.6533882881596771, +0.89015701108348111E-1), (+1.9711604805721987, +0.69715653933778965), (+1.0959789299578095, +0.89219841244564291), (+1.8331483529687826, +0.38353276865246144E-2), (+1.1907030417247353, +0.51536220207362737), (+1.9164488604611289, +0.16307943750639864), (+1.0829797949717821, +0.17357216166371925), (+1.4075361123212256, +0.54578563685080883), (+1.7449336366055164, +0.12786862545476230), (+1.2725057623955991, +0.19841359009694171), (+1.5185905231363583, +0.57061292064504587), (+1.5697344300730958, +0.20923903872683092), (+1.0873431774589934, +0.54055754906477627E-1), (+1.3433183012807093, +0.97216813263382629), (+1.3874666770641491, +0.22148433089862474E-2), (+1.8522965651682988, +0.89227985339118920), (+1.4193741661171166, +0.34445387855809184), (+1.7238836012253742, +0.36567231984804605), (+1.7269489695672684, +0.20288022836403430), (+1.9856331512568937, +0.94357918251365513), (+1.9190274327736461, +0.84862741568471356), (+1.5718540107227992, +0.72839470078691215), (+1.9372310914364919, +0.64718175433448977), (+1.8797878064685631, +0.33814851063680529), (+1.4008588580106816, +0.45710283727330803), (+1.3417445543126831, +0.28462975226931808), (+1.3720600921054240, +0.56655284553332119), (+1.2416756495210270, +0.75997841054888260), (+1.1098000983260226, +0.13361182709555441E-1), (+1.8895738354666833, +0.88203012785258539), (+1.9225881513154293, +0.56500947253765277), (+1.1414288393262610, +0.96521205028874324), (+1.7757807391951597, +0.58983646706760440), (+1.5206767590561800, +0.47585239312765115), (+1.8255551771177858, +0.72374005271110486)

228

229adat = getFFTI(getFFTF(data))

230adat

231(+1.1905239196041943, +0.51192280965096626), (+1.0095781527096452, +0.96742172000480964), (+1.9646974969336624, +0.29202196398785613), (+1.0376912210024358, +0.22793115287735685), (+1.6029595955139975, +0.34510186452047847), (+1.3153670551628958, +0.48887352529492784), (+1.6585141079993788, +0.79944435131153058), (+1.1064259471198687, +0.92137128388216072), (+1.4734648513758810, +0.12277940235483711), (+1.6763272413515813, +0.49869803059097377E-1), (+1.6516946387013693, +0.48409837952752111), (+1.7568963814723224, +0.59547513945352459), (+1.0972493354384547, +0.95817048049272369), (+1.4290499257711176, +0.36260550887385579), (+1.5110007273089783, +0.15541277169935602), (+1.5117451161559059, +0.17655395026523846), (+1.3585490178295534, +0.45979877588669188), (+1.6533882881596775, +0.89015701108348180E-1), (+1.9711604805721987, +0.69715653933778987), (+1.0959789299578091, +0.89219841244564257), (+1.8331483529687824, +0.38353276865242046E-2), (+1.1907030417247348, +0.51536220207362693), (+1.9164488604611292, +0.16307943750639897), (+1.0829797949717828, +0.17357216166371930), (+1.4075361123212253, +0.54578563685080872), (+1.7449336366055168, +0.12786862545476269), (+1.2725057623955984, +0.19841359009694115), (+1.5185905231363590, +0.57061292064504632), (+1.5697344300730960, +0.20923903872683111), (+1.0873431774589934, +0.54055754906478154E-1), (+1.3433183012807095, +0.97216813263382651), (+1.3874666770641491, +0.22148433089860340E-2), (+1.8522965651682981, +0.89227985339118954), (+1.4193741661171158, +0.34445387855809162), (+1.7238836012253738, +0.36567231984804605), (+1.7269489695672686, +0.20288022836403430), (+1.9856331512568941, +0.94357918251365513), (+1.9190274327736461, +0.84862741568471356), (+1.5718540107227996, +0.72839470078691237), (+1.9372310914364914, +0.64718175433448943), (+1.8797878064685638, +0.33814851063680562), (+1.4008588580106818, +0.45710283727330775), (+1.3417445543126838, +0.28462975226931836), (+1.3720600921054236, +0.56655284553332153), (+1.2416756495210268, +0.75997841054888271), (+1.1098000983260217, +0.13361182709555143E-1), (+1.8895738354666829, +0.88203012785258561), (+1.9225881513154297, +0.56500947253765266), (+1.1414288393262615, +0.96521205028874357), (+1.7757807391951594, +0.58983646706760451), (+1.5206767590561807, +0.47585239312765115), (+1.8255551771177865, +0.72374005271110509)

232reltol = sqrt(epsilon(1._TKC))

233reltol

234+0.14901161193847656E-7

235isClose(data, adat, reltol = reltol)

236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

237call setAsserted(all(isClose(data, adat, reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+51

242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

243data

244(+1.28199272241948275433983116830717007, +0.229952747202947242176581061591848777), (+1.87224919766603992515279564637213288, +0.286726443403300578400527372215190059), (+1.27103912017013322161637899886541031, +0.284898575235302527426490245716273228), (+1.91094021662579541824369283012760098, +0.372144423699665688978959672394827759), (+1.83215684132086715915124421933975672, +0.805818683270127970021889155890807475), (+1.12462133287552026882939583057123459, +0.581388707492878121631250658538308819), (+1.81986832641007843784917412170593688, +0.378132518916867318838132301858551663), (+1.48847837624897347312744581223778270, +0.695429384226769989110593451136444011), (+1.86525560523843219400043355888721271, +0.620933448845903706833455345651915635), (+1.90017095462203342413196568117139991, +0.744316530205494420770064158210669213), (+1.43252361138313347283693504301098687, +0.296309467551975377075092537423536714), (+1.90046750539872219744927098877718340, +0.964438847863398024536739327512173925), (+1.61968128990600658352148916491393941, +0.797149057207411553303088121011931205), (+1.05084435337051565506843535927243638, +0.918150127503332992659311255388975468E-1), (+1.20750038880926163347741837359860597, +0.926112869929072310067193488156678849), (+1.46909748165026788927234155718865111, +0.638267445791009535939727577702037193), (+1.40207246123757978256042508701417023, +0.769818005215359934172907255831183681), (+1.78454726760400736367063010929825023, +0.127040280405617336142020911450340384), (+1.41100495102966257095589964749492164, +0.474912335784189964878768829008777341), (+1.50443100651719709386268020465852610, +0.869118964925207600639892314108274568), (+1.42866161478961617791638330848169901, +0.224738092563477662529223852763478238), (+1.86836164890125937295448969849924922, +0.987338414949615438821422014170444086), (+1.20475880498118493873983911550695941, +0.456026289051679156891477703744945120), (+1.52135708087877116671243294265242261, +0.463651857355741394806034465206100450), (+1.50057444492869523540882409889637036, +0.457579484828453212619525792555057686), (+1.52133222716090533250825662683563042, +0.671503192373965797324634738775287593), (+1.32900006944125478777510114746799477, +0.210463971893571309882317268349972250), (+1.75395544541322350296835685688917928, +0.867025829460061736262598833263145345), (+1.43354944193781632929332769017662702, +0.920167882619550294660216962113222551), (+1.70684563367111502374726083311099248, +0.623717291394059766840352424253700399), (+1.69132699216030591853989360204071967, +0.236361094056350224195212628310028836), (+1.79367900209011641008342915362744243, +0.199225258769192260040085635361284380), (+1.48539357437386036665421109525363263, +0.162746164323893414910723388839984152E-1), (+1.57288005165097044254025685228291339, +0.717443424405703662900320688105543051), (+1.00691471440949862950818947774991757, +0.949990088595839695074009630220044211), (+1.47731831404504040564472265411144511, +0.173556934476148903688813889977846775E-1), (+1.97911927562620037059646559463761050, +0.362472860276946349537658747984536998), (+1.67098189821828700751786715411155400, +0.242984828951044394959353513419493964), (+1.99350572595716111371918031249398701, +0.744333713201036869419473747897413235), (+1.91360121436687734947331771570980312, +0.588336755190067110002789410674985371), (+1.54861334058507340896629352009948842, +0.325917255134492033951233286007911246), (+1.26387242556395476117634823152409984, +0.640353520958291035734655581170745672), (+1.28949428693357623255824749989746151, +0.222700621390122023011911266428446464), (+1.32954240868542746438043507717487586, +0.226737383474388560691606984836728572), (+1.09561685009128666176450999938198353, +0.233605927534176929061913717397179452), (+1.36649393333023378495838236943473902, +0.903530087046295707810360717618747333), (+1.84052540562513767657047989867045238, +0.147853174987475283452076841581228971), (+1.75137772321236818254476782408245738, +0.582483711475105077984455946452081236E-1), (+1.98319859654624167123825370981513122, +0.311979828825373115611127701684498904), (+1.53768226588571091658522630680949835, +0.199176921346221090920984808157034940), (+1.71503402732563994086524637200913662, +0.849495908465570000829325676516501025)

245

246adat = getFFTI(getFFTF(data))

247adat

248(+1.28199272241948275433983116830716833, +0.229952747202947242176581061591848512), (+1.87224919766603992515279564637213384, +0.286726443403300578400527372215190059), (+1.27103912017013322161637899886541070, +0.284898575235302527426490245716273276), (+1.91094021662579541824369283012760059, +0.372144423699665688978959672394827663), (+1.83215684132086715915124421933975672, +0.805818683270127970021889155890807571), (+1.12462133287552026882939583057123459, +0.581388707492878121631250658538308723), (+1.81986832641007843784917412170593650, +0.378132518916867318838132301858551711), (+1.48847837624897347312744581223778289, +0.695429384226769989110593451136444011), (+1.86525560523843219400043355888721252, +0.620933448845903706833455345651915635), (+1.90017095462203342413196568117139933, +0.744316530205494420770064158210669405), (+1.43252361138313347283693504301098706, +0.296309467551975377075092537423536714), (+1.90046750539872219744927098877718360, +0.964438847863398024536739327512173925), (+1.61968128990600658352148916491393960, +0.797149057207411553303088121011931397), (+1.05084435337051565506843535927243638, +0.918150127503332992659311255388973542E-1), (+1.20750038880926163347741837359860578, +0.926112869929072310067193488156679041), (+1.46909748165026788927234155718865130, +0.638267445791009535939727577702037385), (+1.40207246123757978256042508701417138, +0.769818005215359934172907255831183874), (+1.78454726760400736367063010929824831, +0.127040280405617336142020911450339830), (+1.41100495102966257095589964749492222, +0.474912335784189964878768829008777630), (+1.50443100651719709386268020465852667, +0.869118964925207600639892314108274857), (+1.42866161478961617791638330848169901, +0.224738092563477662529223852763478310), (+1.86836164890125937295448969849924902, +0.987338414949615438821422014170444182), (+1.20475880498118493873983911550695941, +0.456026289051679156891477703744945409), (+1.52135708087877116671243294265242223, +0.463651857355741394806034465206100643), (+1.50057444492869523540882409889637016, +0.457579484828453212619525792555057349), (+1.52133222716090533250825662683563080, +0.671503192373965797324634738775287497), (+1.32900006944125478777510114746799458, +0.210463971893571309882317268349972154), (+1.75395544541322350296835685688917908, +0.867025829460061736262598833263145345), (+1.43354944193781632929332769017662721, +0.920167882619550294660216962113222455), (+1.70684563367111502374726083311099267, +0.623717291394059766840352424253700496), (+1.69132699216030591853989360204071986, +0.236361094056350224195212628310028884), (+1.79367900209011641008342915362744243, +0.199225258769192260040085635361284621), (+1.48539357437386036665421109525363301, +0.162746164323893414910723388839984452E-1), (+1.57288005165097044254025685228291397, +0.717443424405703662900320688105543340), (+1.00691471440949862950818947774991660, +0.949990088595839695074009630220044018), (+1.47731831404504040564472265411144608, +0.173556934476148903688813889977849152E-1), (+1.97911927562620037059646559463761069, +0.362472860276946349537658747984537046), (+1.67098189821828700751786715411155381, +0.242984828951044394959353513419493771), (+1.99350572595716111371918031249398644, +0.744333713201036869419473747897413428), (+1.91360121436687734947331771570980331, +0.588336755190067110002789410674985563), (+1.54861334058507340896629352009948803, +0.325917255134492033951233286007911246), (+1.26387242556395476117634823152409965, +0.640353520958291035734655581170745672), (+1.28949428693357623255824749989746113, +0.222700621390122023011911266428446536), (+1.32954240868542746438043507717487567, +0.226737383474388560691606984836728476), (+1.09561685009128666176450999938198411, +0.233605927534176929061913717397179404), (+1.36649393333023378495838236943473883, +0.903530087046295707810360717618747333), (+1.84052540562513767657047989867045258, +0.147853174987475283452076841581229068), (+1.75137772321236818254476782408245757, +0.582483711475105077984455946452082801E-1), (+1.98319859654624167123825370981513122, +0.311979828825373115611127701684498712), (+1.53768226588571091658522630680949912, +0.199176921346221090920984808157034988), (+1.71503402732563994086524637200913720, +0.849495908465570000829325676516501217)

249reltol = sqrt(epsilon(1._TKC))

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, adat, reltol = reltol)

253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

254call setAsserted(all(isClose(data, adat, reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+92

259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

260data

261+1.32834947, +1.69210792, +1.07105756, +1.28699422, +1.88782549, +1.47750235, +1.39001393, +1.66380334, +1.63208485, +1.05470991, +1.77341199, +1.31259036, +1.57048178, +1.56869555, +1.28382158, +1.32621932, +1.30827284, +1.09907067, +1.73724675, +1.81665587, +1.53746927, +1.86188126, +1.69165707, +1.66200161, +1.64070010, +1.89627135, +1.57649183, +1.76339364, +1.61455631, +1.48994780, +1.98847675, +1.57482958, +1.07781339, +1.67008221, +1.02722836, +1.95123398, +1.43308878, +1.25535226, +1.06587923, +1.48330951, +1.86931324, +1.23036933, +1.47046006, +1.00128174, +1.16535461, +1.95199370, +1.71722126, +1.26428437, +1.85599375, +1.87197518, +1.94279659, +1.41214800, +1.17476797, +1.13596201, +1.29757738, +1.32764769, +1.86561251, +1.17596245, +1.40102816, +1.68604553, +1.10063291, +1.99066019, +1.66257381, +1.13904274, +1.81405115, +1.23118794, +1.26061368, +1.40996099, +1.10906041, +1.46985996, +1.26186347, +1.73208773, +1.00084758, +1.32712197, +1.59940863, +1.43053305, +1.64276457, +1.71631157, +1.17574310, +1.24576998, +1.45785046, +1.44869328, +1.14852428, +1.51363158, +1.17288733, +1.42658651, +1.93885565, +1.40828943, +1.32967401, +1.37301898, +1.69143677, +1.81723261

262

263adat = getFFTI(getFFTF(data))

264adat

265+1.32834947, +1.69210804, +1.07105756, +1.28699422, +1.88782585, +1.47750258, +1.39001417, +1.66380394, +1.63208437, +1.05471003, +1.77341127, +1.31259012, +1.57048202, +1.56869543, +1.28382218, +1.32621968, +1.30827212, +1.09907055, +1.73724568, +1.81665528, +1.53746951, +1.86188042, +1.69165695, +1.66200197, +1.64069939, +1.89627063, +1.57649100, +1.76339293, +1.61455691, +1.48994815, +1.98847651, +1.57483029, +1.07781291, +1.67008150, +1.02722847, +1.95123315, +1.43309009, +1.25535333, +1.06588089, +1.48331034, +1.86931014, +1.23036814, +1.47045839, +1.00128114, +1.16535938, +1.95199537, +1.71722460, +1.26428664, +1.85599375, +1.87197733, +1.94279861, +1.41214967, +1.17476833, +1.13596058, +1.29757655, +1.32764697, +1.86561179, +1.17596400, +1.40102935, +1.68604529, +1.10063326, +1.99065864, +1.66257310, +1.13904297, +1.81405091, +1.23118854, +1.26061440, +1.40996134, +1.10906005, +1.46985912, +1.26186275, +1.73208725, +1.00084794, +1.32712185, +1.59940851, +1.43053341, +1.64276361, +1.71631074, +1.17574251, +1.24576986, +1.45785058, +1.44869339, +1.14852464, +1.51363182, +1.17288709, +1.42658639, +1.93885505, +1.40828919, +1.32967424, +1.37301934, +1.69143701, +1.81723309

266reltol = sqrt(epsilon(1._TKC))

267reltol

268+0.345266977E-3

269isClose(data, adat, reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

271call setAsserted(all(isClose(data, adat, reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+28

276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

277data

278+1.0399020116607933, +1.5603900773198212, +1.4461011136688939, +1.6899398070008926, +1.2836021506544402, +1.3904135628929977, +1.1746882740271305, +1.8774290827433529, +1.7364294563127229, +1.5162163667376682, +1.2041060015568070, +1.8323871953344630, +1.3129344366768798, +1.1695509911976627, +1.3936159352414981, +1.4713794445533934, +1.8361454206464904, +1.5837480436597158, +1.2164820158298228, +1.8599507762287757, +1.1520352508875322, +1.3345115106170125, +1.5509006642454883, +1.4928806880208427, +1.9557762783742374, +1.1199140197396016, +1.2838804413111338, +1.8104244646508536

279

280adat = getFFTI(getFFTF(data))

281adat

282+1.0399020116607929, +1.5603900773198209, +1.4461011136688942, +1.6899398070008929, +1.2836021506544399, +1.3904135628929974, +1.1746882740271303, +1.8774290827433524, +1.7364294563127229, +1.5162163667376682, +1.2041060015568072, +1.8323871953344635, +1.3129344366768785, +1.1695509911976618, +1.3936159352414976, +1.4713794445533928, +1.8361454206464896, +1.5837480436597151, +1.2164820158298222, +1.8599507762287757, +1.1520352508875318, +1.3345115106170125, +1.5509006642454886, +1.4928806880208427, +1.9557762783742370, +1.1199140197396014, +1.2838804413111335, +1.8104244646508534

283reltol = sqrt(epsilon(1._TKC))

284reltol

285+0.14901161193847656E-7

286isClose(data, adat, reltol = reltol)

287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

288call setAsserted(all(isClose(data, adat, reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+92

293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

294data

295+1.84776921542965045929096544673061855, +1.13824281555089084252196459543359756, +1.10034387721752494037576457641572993, +1.67779812592069988924289724790396698, +1.65688838802595598891686659246515181, +1.46973102505167107351996070812255768, +1.85657328517510639077620415520253392, +1.18979099110963814877811997153715322, +1.46467929057888880821992302182545835, +1.28630079503641883856903319833871309, +1.37826819510500836778746812583824012, +1.29030148983418115367906898977874349, +1.92505839448267907116428366288284344, +1.82522732555675783656885112123927094, +1.42322264468233736197401536464753206, +1.39061765470748196947826338760519899, +1.77991841553142723369494794601951776, +1.00085224816081574663167625789624532, +1.23663301266868295343346479693920975, +1.26829184149946346288848327047775112, +1.99229506811665322749693440147173294, +1.62333758035497107738193987664807759, +1.26572984064118319954605019869141591, +1.49128299644220060077859275562031076, +1.73835559439952856459795761101075215, +1.29336568306948451471711787512638326, +1.83483902594871724123375167007139826, +1.56249885234674210415795931690314792, +1.16634493254883658829605917709615089, +1.81311758609115193105651729753636648, +1.67167252563596982164737668879389901, +1.91982772176555014677317066286620685, +1.97007634413194873279219784769193480, +1.56583353437971661078306065341330024, +1.83260938707925735880039665867753528, +1.14068419793620737618398839270166058, +1.22378620425370669207272203969824170, +1.82257800204001717276829825568871993, +1.48932717571304033805058373140580271, +1.30580204730487757905703483429407762, +1.25344675215046267540530830624179965, +1.21241946538184538823519225175178125, +1.36265186214674415374250217188213128, +1.43802752264168985876616153072876171, +1.58254666475897904541338642033551426, +1.86517633499120654416966376499384279, +1.26963867507114946767708241469491850, +1.96283043623218869733597631515627107, +1.99121913104009350650321533686210548, +1.10048485967932522789916003761139621, +1.70684902326710894137893556727354615, +1.09131128555152960962573162331103480, +1.66477100843586403390352618716917845, +1.09787567206782417805172605254798243, +1.57733547815444279487563746222885614, +1.43205782626471264519217258390867310, +1.15781225668352512706749066266721739, +1.71914411940406938901458031776063169, +1.05357946752089295166279226842411580, +1.40681390987369371262955582042686369, +1.48856311203356263334277269362493251, +1.94163812843602156844711292031778612, +1.58289899522532561611934558015263702, +1.96613006872894634248501353359073533, +1.97471290351904425410401273934225835, +1.43141438066513554816291408678030083, +1.50041442980703169229335065882076954, +1.64280792566453959148817256224360489, +1.93430607774758388162249693008246146, +1.54476704800622225471318318053360687, +1.41020996495407088182903693187904686, +1.98753767595236185956776290511049583, +1.12112407025281117724391538502917427, +1.27216723045305110764071764572491933, +1.15086761009841996648314004818868934, +1.17601356988426937947502592210342632, +1.55399780449629736361865229815505428, +1.97063276164524883227602723019560328, +1.45338171409544529147176004784352801, +1.71226879634153960132667486910164949, +1.95178312920807895573191086873242001, +1.85836376149032488745141525294451399, +1.53005649123162448795604443442994210, +1.97764628590527364448303208960661365, +1.83219222770821385763154047907312733, +1.48906604633904751298338535323850637, +1.31962056866303009760585864516774727, +1.73559891896036876403583677603583143, +1.10788325559815878603195021382076936, +1.99421814685421906541927624067120877, +1.43396164264989184449055640500316636, +1.99050660709984355092576718014477801

296

297adat = getFFTI(getFFTF(data))

298adat

299+1.84776921542965045929096544673061835, +1.13824281555089084252196459543359717, +1.10034387721752494037576457641573012, +1.67779812592069988924289724790396775, +1.65688838802595598891686659246515162, +1.46973102505167107351996070812255749, +1.85657328517510639077620415520253450, +1.18979099110963814877811997153715380, +1.46467929057888880821992302182545893, +1.28630079503641883856903319833871328, +1.37826819510500836778746812583824031, +1.29030148983418115367906898977874368, +1.92505839448267907116428366288284305, +1.82522732555675783656885112123927055, +1.42322264468233736197401536464753187, +1.39061765470748196947826338760519918, +1.77991841553142723369494794601951756, +1.00085224816081574663167625789624590, +1.23663301266868295343346479693920975, +1.26829184149946346288848327047775208, +1.99229506811665322749693440147173179, +1.62333758035497107738193987664807721, +1.26572984064118319954605019869141610, +1.49128299644220060077859275562031095, +1.73835559439952856459795761101075176, +1.29336568306948451471711787512638365, +1.83483902594871724123375167007139807, +1.56249885234674210415795931690314849, +1.16634493254883658829605917709615147, +1.81311758609115193105651729753636668, +1.67167252563596982164737668879389959, +1.91982772176555014677317066286620685, +1.97007634413194873279219784769193422, +1.56583353437971661078306065341330139, +1.83260938707925735880039665867753490, +1.14068419793620737618398839270166135, +1.22378620425370669207272203969824208, +1.82257800204001717276829825568871993, +1.48932717571304033805058373140580291, +1.30580204730487757905703483429407858, +1.25344675215046267540530830624180023, +1.21241946538184538823519225175178221, +1.36265186214674415374250217188213263, +1.43802752264168985876616153072876286, +1.58254666475897904541338642033551234, +1.86517633499120654416966376499384125, +1.26963867507114946767708241469491696, +1.96283043623218869733597631515626914, +1.99121913104009350650321533686210336, +1.10048485967932522789916003761139505, +1.70684902326710894137893556727354423, +1.09131128555152960962573162331103364, +1.66477100843586403390352618716917864, +1.09787567206782417805172605254798397, +1.57733547815444279487563746222885730, +1.43205782626471264519217258390867445, +1.15781225668352512706749066266721816, +1.71914411940406938901458031776063131, +1.05357946752089295166279226842411676, +1.40681390987369371262955582042686446, +1.48856311203356263334277269362493270, +1.94163812843602156844711292031778650, +1.58289899522532561611934558015263682, +1.96613006872894634248501353359073571, +1.97471290351904425410401273934225797, +1.43141438066513554816291408678030141, +1.50041442980703169229335065882076974, +1.64280792566453959148817256224360527, +1.93430607774758388162249693008246069, +1.54476704800622225471318318053360706, +1.41020996495407088182903693187904725, +1.98753767595236185956776290511049621, +1.12112407025281117724391538502917466, +1.27216723045305110764071764572491933, +1.15086761009841996648314004818868953, +1.17601356988426937947502592210342690, +1.55399780449629736361865229815505409, +1.97063276164524883227602723019560308, +1.45338171409544529147176004784352782, +1.71226879634153960132667486910165026, +1.95178312920807895573191086873241944, +1.85836376149032488745141525294451342, +1.53005649123162448795604443442994191, +1.97764628590527364448303208960661365, +1.83219222770821385763154047907312752, +1.48906604633904751298338535323850637, +1.31962056866303009760585864516774746, +1.73559891896036876403583677603583143, +1.10788325559815878603195021382076936, +1.99421814685421906541927624067120877, +1.43396164264989184449055640500316675, +1.99050660709984355092576718014477878

300reltol = sqrt(epsilon(1._TKC))

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, adat, reltol = reltol)

304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

305call setAsserted(all(isClose(data, adat, reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+80

310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

311data

312(+1.95084119, +0.817572892), (+1.55528688, +0.688976943), (+1.27159953, +0.564329803), (+1.32174253, +0.353634536), (+1.89368689, +0.783965468), (+1.08102894, +0.651475549), (+1.16145396, +0.213128269), (+1.74717402, +0.841760337), (+1.02820766, +0.652208388), (+1.51583076, +0.226708055), (+1.51139927, +0.278540432), (+1.81223655, +0.408571064), (+1.88195944, +0.640233159), (+1.48805797, +0.991130829), (+1.72968423, +0.752520680), (+1.11626816, +0.168363094), (+1.18673801, +0.770289361), (+1.65679407, +0.207639277), (+1.44379425, +0.618838131), (+1.88156295, +0.719790041), (+1.01974273, +0.503548205), (+1.24300504, +0.674697161), (+1.69362259, +0.971005559E-1), (+1.55278242, +0.309519172), (+1.99227405, +0.417786777), (+1.80306554, +0.910073698), (+1.94950318, +0.841331124), (+1.09752870, +0.893037379), (+1.82149601, +0.254657686), (+1.66049623, +0.584657133), (+1.28968120, +0.681943059), (+1.54735816, +0.536440730), (+1.19985855, +0.839184105), (+1.15460682, +0.693544209), (+1.49570084, +0.327195466), (+1.44896746, +0.464440584E-1), (+1.81482494, +0.686454654), (+1.26961005, +0.965249956), (+1.27464867, +0.873934269), (+1.63434565, +0.371070445), (+1.77306759, +0.110987306), (+1.61499774, +0.321288109), (+1.29904056, +0.294130206), (+1.79789937, +0.198800564), (+1.33942497, +0.680484056), (+1.23780298, +0.395305157E-1), (+1.50537682, +0.912414789E-1), (+1.84600890, +0.415897489), (+1.84238911, +0.648507118), (+1.92109013, +0.161129236), (+1.64877295, +0.364524901), (+1.15728593, +0.715875030), (+1.89719987, +0.825282335E-1), (+1.05126715, +0.204062462E-2), (+1.99731016, +0.317495406), (+1.84149718, +0.149425447), (+1.36634696, +0.379126430), (+1.17599690, +0.831584990), (+1.27818775, +0.187334657), (+1.72507215, +0.661660552), (+1.32531452, +0.793782175), (+1.20648766, +0.245432496), (+1.18922317, +0.133199215), (+1.58477521, +0.588452935), (+1.68275797, +0.117372930), (+1.26488638, +0.242109239), (+1.89308631, +0.271003425), (+1.61294770, +0.824247301), (+1.78781712, +0.254952908E-1), (+1.02562666, +0.921937764), (+1.83057666, +0.810740650), (+1.08097124, +0.314598262), (+1.29130852, +0.176208854), (+1.85724044, +0.468144238), (+1.10037231, +0.153939605), (+1.73395896, +0.996759236), (+1.43343973, +0.808403075), (+1.85230613, +0.866008043), (+1.21130633, +0.284830809), (+1.84041309, +0.602346539)

313

314adat = getFFTI(getFFTF(data))

315adat

316(+1.95084095, +0.817572892), (+1.55528724, +0.688977063), (+1.27159953, +0.564329803), (+1.32174265, +0.353634596), (+1.89368713, +0.783965468), (+1.08102882, +0.651475549), (+1.16145408, +0.213128313), (+1.74717414, +0.841760278), (+1.02820790, +0.652208507), (+1.51583087, +0.226708010), (+1.51139915, +0.278540343), (+1.81223679, +0.408571243), (+1.88195932, +0.640233219), (+1.48805821, +0.991130948), (+1.72968447, +0.752520800), (+1.11626816, +0.168362945), (+1.18673790, +0.770289421), (+1.65679383, +0.207639173), (+1.44379461, +0.618838072), (+1.88156307, +0.719790161), (+1.01974261, +0.503548145), (+1.24300516, +0.674697220), (+1.69362259, +0.971005708E-1), (+1.55278242, +0.309519142), (+1.99227428, +0.417786807), (+1.80306530, +0.910073578), (+1.94950354, +0.841331184), (+1.09752870, +0.893037319), (+1.82149625, +0.254657745), (+1.66049635, +0.584657192), (+1.28968096, +0.681942940), (+1.54735816, +0.536440790), (+1.19985855, +0.839184225), (+1.15460694, +0.693544328), (+1.49570107, +0.327195317), (+1.44896734, +0.464440361E-1), (+1.81482542, +0.686454594), (+1.26961017, +0.965250015), (+1.27464902, +0.873934269), (+1.63434541, +0.371070474), (+1.77306747, +0.110987179), (+1.61499786, +0.321288198), (+1.29904068, +0.294130176), (+1.79789948, +0.198800549), (+1.33942497, +0.680484116), (+1.23780286, +0.395304449E-1), (+1.50537694, +0.912415013E-1), (+1.84600925, +0.415897459), (+1.84238935, +0.648507059), (+1.92109036, +0.161129147), (+1.64877284, +0.364524752), (+1.15728605, +0.715875089), (+1.89719999, +0.825281888E-1), (+1.05126715, +0.204067235E-2), (+1.99731028, +0.317495555), (+1.84149683, +0.149425372), (+1.36634696, +0.379126370), (+1.17599678, +0.831584930), (+1.27818799, +0.187334627), (+1.72507191, +0.661660671), (+1.32531428, +0.793782175), (+1.20648777, +0.245432451), (+1.18922317, +0.133199140), (+1.58477545, +0.588452935), (+1.68275797, +0.117372870), (+1.26488614, +0.242109165), (+1.89308667, +0.271003395), (+1.61294770, +0.824247301), (+1.78781724, +0.254952442E-1), (+1.02562666, +0.921937883), (+1.83057630, +0.810740590), (+1.08097136, +0.314598322), (+1.29130840, +0.176208854), (+1.85724056, +0.468144238), (+1.10037255, +0.153939635), (+1.73395860, +0.996759355), (+1.43344009, +0.808403134), (+1.85230625, +0.866008103), (+1.21130645, +0.284830838), (+1.84041309, +0.602346718)

317reltol = sqrt(epsilon(1._TKC))

318reltol

319+0.345266977E-3

320isClose(data, adat, reltol = reltol)

321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

322call setAsserted(all(isClose(data, adat, reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+5

327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

328data

329(+1.8840202116253471, +0.63610429688999115), (+1.5584710587820636, +0.22655075293251137), (+1.4413924634217867, +0.10131822673204849), (+1.1025116105830612, +0.93980958218693056), (+1.3925350528374347, +0.22099766604697024)

330

331adat = getFFTI(getFFTF(data))

332adat

333(+1.8840202116253473, +0.63610429688999126), (+1.5584710587820636, +0.22655075293251145), (+1.4413924634217867, +0.10131822673204863), (+1.1025116105830610, +0.93980958218693067), (+1.3925350528374345, +0.22099766604697035)

334reltol = sqrt(epsilon(1._TKC))

335reltol

336+0.14901161193847656E-7

337isClose(data, adat, reltol = reltol)

338T, T, T, T, T

339call setAsserted(all(isClose(data, adat, reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+75

344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

345data

346(+1.36459692970257909804390824781911834, +0.682049778416084023614334381842636956), (+1.91621084796181981702521236894900333, +0.144021614855155017648419752417470954E-1), (+1.27475144271351324938259940216889572, +0.449776076167871946264578842005061639), (+1.42426183320902027669159274454235507, +0.475045127874574092345634557596456699), (+1.70332648317935673687168989207742860, +0.282454511824025768936387760610289201), (+1.05982729122004131354962266096281921, +0.183067556014478300350350196303065477), (+1.77408605866466325880031971623314322, +0.353375112567022106365601126550641340), (+1.40792833838934395251747777996062270, +0.387782309022492042931586583999730826E-1), (+1.12986779198951814970315090140532264, +0.464423383432077312898544700656724348), (+1.79844201579074083325264329173930782, +0.880702800588528353792495705402724149), (+1.36641717122576585023202840235529535, +0.137213761564100571559497202683843736), (+1.44083914705573071339492524182643354, +0.715859067779319901928355725927650971), (+1.56200478935252452695023637909614633, +0.157334347828363216064198116608017899), (+1.72471770165670456189340047965429271, +0.713929396404752307090600704638127808), (+1.37073610631961255047781864320572949, +0.871364247404071651067409263616119261), (+1.68792997699306424428928462726725778, +0.781986290281006259648888885357376439), (+1.92830255596426219501266640808320524, +0.264687929136350867686672440141276318), (+1.84980746098205247812276524052565597, +0.782268828859691531747934390584627317), (+1.43855839170273121539303978467688173, +0.124907904263480168065140167097551152), (+1.44340845984593690820003600639564051, +0.577218483180800489792916635123011548), (+1.11403020539350195022466401249305428, +0.309868199099025639947337534338469629), (+1.04865969648468785451912573655612989, +0.512999578010543343150560494903377048), (+1.97645261973841393379268487330010600, +0.631112923941707785381729037278101476), (+1.61334837691793322648351828040497250, +0.266289489409309352231071796904739614), (+1.41238148483449651736561810868849490, +0.224808180611044090233244329220809686), (+1.72614964803056578947665392339546430, +0.324573399312449247269815629251174794), (+1.95468319725628252175491874902869541, +0.806010994537563239720407055974911703), (+1.08133955373741963666662674610525520, +0.412340688404122866703947124880959223E-1), (+1.13392463172600788600923388431552071, +0.685065528419820010448881167946038844), (+1.77606680385978609548678846409038361, +0.565897884271897093955695544499204577), (+1.66628606985717953255405246998713130, +0.603371946015406607613583893804229125), (+1.16310518410847143680565385379647186, +0.857818300078541332189311577245509154), (+1.39350298909288329903749152367806465, +0.262560616739022318200121766811698310), (+1.54494929349399706217098709420781046, +0.889091208944532501036442522479944372), (+1.40576913107762682087680272471171287, +0.632996717065557496108017453129587770), (+1.18123102268793830666805225423527659, +0.517521603909974012271517524331934720), (+1.38842156533368592220667342973124462, +0.832307269955795353938386212351588260), (+1.03301851597795821595810949839869896, +0.491611109983298372276086517047494573), (+1.99959296542048151208531554184100457, +0.616468800850422507416712139181837762), (+1.10561976544685075982065929453628617, +0.252730901150361157266984422954214924), (+1.48152844719037849359962001380765919, +0.340929564642330726007754997546276100), (+1.05707607962535503145548877050457981, +0.424365164641503309782195356694992742E-1), (+1.67096504037906784121033282591890012, +0.997227682781052066670622656773466509), (+1.62858680601264228566505880456382506, +0.121778398257527316983708146721206321), (+1.12316547881091664839360023929911327, +0.843377821365436196353153080944989689), (+1.33038259158334770091404810273591836, +0.165159822040643100065920737551535714E-1), (+1.15277482890295378799003909132928957, +0.354092783732904835666833977142837997), (+1.20343690379154525784149205190584595, +0.546751023365195129577725640197512451), (+1.46979704751207681137785256568520758, +0.165931899817489057446475023497471004), (+1.80159060456504321133086238039748559, +0.159548804270987985489323083882163159), (+1.51231033433587107353112603160302773, +0.501921163310809149435994217034150187), (+1.43818316950586806268201106846477894, +0.361922722684429385100849821884466374), (+1.23713567409973743551457939422999008, +0.453578322817330729662769773777216194), (+1.42830886789630401011964117825972038, +0.901276538711907399960208807954314696E-1), (+1.44239987779387918750196038090639411, +0.314941407634544408051438004415340785), (+1.08310216032347659453821950678494336, +0.539690253779854121484110102359204017), (+1.79593446363276799124984061804842353, +0.463377508966725458055739028067130523E-2), (+1.01704656913988358749446524565069694, +0.506692861574141771248114573212045312E-1), (+1.12879885110411194817651727443570701, +0.926536143315837201943586416875792826), (+1.80222779074173197422669907511095859, +0.402551796939842802496588580776696988), (+1.20975785541547856403450372481930910, +0.961052320550808825348957111757466061), (+1.73712662528903319568224327088990174, +0.630545469003401807091256700755353194), (+1.97340267637094218086848769832377636, +0.129154463729837092610231791205349896), (+1.31882352234391871222834484967062367, +0.442201264705150749502687954585296893), (+1.13558829245593524921623880636883602, +0.517043007162662177911743893168658064), (+1.40439354064278273660315134250485623, +0.370313396569686294433555668588689166), (+1.46525022452546745262187759414269566, +0.942259943789594816785721582820877862), (+1.14628912370148761485154878164362090, +0.663848969780154485911111821779671009), (+1.06489818603677206918623215613134269, +0.250434289602019166121109083153874182), (+1.49785817344876129089826601623578909, +0.971822230020075860415843605856778181), (+1.07081669772474576282640215273695239, +0.879537219882390695963785338603991913), (+1.22837023781843441027604011758600549, +0.813165104315003015339961845739022468), (+1.74781779291777574925713347040650880, +0.995821763914767488063396752558392433), (+1.61760932927866394991767203467075300, +0.985968630212095174888114359897088611), (+1.03798168678025621541126745720522773, +0.420315414345844014309465009279650829)

347

348adat = getFFTI(getFFTF(data))

349adat

350(+1.36459692970257909804390824781911834, +0.682049778416084023614334381842636956), (+1.91621084796181981702521236894900333, +0.144021614855155017648419752417470052E-1), (+1.27475144271351324938259940216889553, +0.449776076167871946264578842005061831), (+1.42426183320902027669159274454235507, +0.475045127874574092345634557596456748), (+1.70332648317935673687168989207742860, +0.282454511824025768936387760610289104), (+1.05982729122004131354962266096281921, +0.183067556014478300350350196303065525), (+1.77408605866466325880031971623314303, +0.353375112567022106365601126550641436), (+1.40792833838934395251747777996062270, +0.387782309022492042931586583999729080E-1), (+1.12986779198951814970315090140532264, +0.464423383432077312898544700656724396), (+1.79844201579074083325264329173930801, +0.880702800588528353792495705402724149), (+1.36641717122576585023202840235529573, +0.137213761564100571559497202683843832), (+1.44083914705573071339492524182643374, +0.715859067779319901928355725927651068), (+1.56200478935252452695023637909614613, +0.157334347828363216064198116608017803), (+1.72471770165670456189340047965429271, +0.713929396404752307090600704638127904), (+1.37073610631961255047781864320572949, +0.871364247404071651067409263616119647), (+1.68792997699306424428928462726725816, +0.781986290281006259648888885357376632), (+1.92830255596426219501266640808320543, +0.264687929136350867686672440141276366), (+1.84980746098205247812276524052565578, +0.782268828859691531747934390584627606), (+1.43855839170273121539303978467688211, +0.124907904263480168065140167097551224), (+1.44340845984593690820003600639564032, +0.577218483180800489792916635123011644), (+1.11403020539350195022466401249305409, +0.309868199099025639947337534338469629), (+1.04865969648468785451912573655612970, +0.512999578010543343150560494903377145), (+1.97645261973841393379268487330010619, +0.631112923941707785381729037278101283), (+1.61334837691793322648351828040497270, +0.266289489409309352231071796904739662), (+1.41238148483449651736561810868849490, +0.224808180611044090233244329220809686), (+1.72614964803056578947665392339546449, +0.324573399312449247269815629251174553), (+1.95468319725628252175491874902869521, +0.806010994537563239720407055974911703), (+1.08133955373741963666662674610525520, +0.412340688404122866703947124880961570E-1), (+1.13392463172600788600923388431552110, +0.685065528419820010448881167946038747), (+1.77606680385978609548678846409038361, +0.565897884271897093955695544499204481), (+1.66628606985717953255405246998713149, +0.603371946015406607613583893804229028), (+1.16310518410847143680565385379647167, +0.857818300078541332189311577245509154), (+1.39350298909288329903749152367806465, +0.262560616739022318200121766811698214), (+1.54494929349399706217098709420781046, +0.889091208944532501036442522479944275), (+1.40576913107762682087680272471171326, +0.632996717065557496108017453129587770), (+1.18123102268793830666805225423527678, +0.517521603909974012271517524331934913), (+1.38842156533368592220667342973124443, +0.832307269955795353938386212351588164), (+1.03301851597795821595810949839869915, +0.491611109983298372276086517047494429), (+1.99959296542048151208531554184100457, +0.616468800850422507416712139181837859), (+1.10561976544685075982065929453628597, +0.252730901150361157266984422954215020), (+1.48152844719037849359962001380765957, +0.340929564642330726007754997546276148), (+1.05707607962535503145548877050458000, +0.424365164641503309782195356694992020E-1), (+1.67096504037906784121033282591890012, +0.997227682781052066670622656773466605), (+1.62858680601264228566505880456382506, +0.121778398257527316983708146721206441), (+1.12316547881091664839360023929911289, +0.843377821365436196353153080944990074), (+1.33038259158334770091404810273591855, +0.165159822040643100065920737551534570E-1), (+1.15277482890295378799003909132928938, +0.354092783732904835666833977142838093), (+1.20343690379154525784149205190584614, +0.546751023365195129577725640197512644), (+1.46979704751207681137785256568520777, +0.165931899817489057446475023497471004), (+1.80159060456504321133086238039748559, +0.159548804270987985489323083882163424), (+1.51231033433587107353112603160302753, +0.501921163310809149435994217034150187), (+1.43818316950586806268201106846477798, +0.361922722684429385100849821884466470), (+1.23713567409973743551457939422999047, +0.453578322817330729662769773777216146), (+1.42830886789630401011964117825972057, +0.901276538711907399960208807954315779E-1), (+1.44239987779387918750196038090639411, +0.314941407634544408051438004415340737), (+1.08310216032347659453821950678494374, +0.539690253779854121484110102359204017), (+1.79593446363276799124984061804842333, +0.463377508966725458055739028067138272E-2), (+1.01704656913988358749446524565069675, +0.506692861574141771248114573212043928E-1), (+1.12879885110411194817651727443570721, +0.926536143315837201943586416875792729), (+1.80222779074173197422669907511095878, +0.402551796939842802496588580776697132), (+1.20975785541547856403450372481930929, +0.961052320550808825348957111757466253), (+1.73712662528903319568224327088990174, +0.630545469003401807091256700755353194), (+1.97340267637094218086848769832377636, +0.129154463729837092610231791205350016), (+1.31882352234391871222834484967062367, +0.442201264705150749502687954585296749), (+1.13558829245593524921623880636883602, +0.517043007162662177911743893168657968), (+1.40439354064278273660315134250485604, +0.370313396569686294433555668588689262), (+1.46525022452546745262187759414269566, +0.942259943789594816785721582820878151), (+1.14628912370148761485154878164362090, +0.663848969780154485911111821779670913), (+1.06489818603677206918623215613134288, +0.250434289602019166121109083153874134), (+1.49785817344876129089826601623578909, +0.971822230020075860415843605856778181), (+1.07081669772474576282640215273695278, +0.879537219882390695963785338603991913), (+1.22837023781843441027604011758600530, +0.813165104315003015339961845739022853), (+1.74781779291777574925713347040650937, +0.995821763914767488063396752558392530), (+1.61760932927866394991767203467075320, +0.985968630212095174888114359897088418), (+1.03798168678025621541126745720522773, +0.420315414345844014309465009279651118)

351reltol = sqrt(epsilon(1._TKC))

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, adat, reltol = reltol)

355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

356call setAsserted(all(isClose(data, adat, reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+47

361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

362data

363+1.52872765, +1.36511266, +1.76712608, +1.26538968, +1.07254112, +1.28523350, +1.29763770, +1.47337270, +1.19020224, +1.71093881, +1.56400633, +1.20311987, +1.70289922, +1.67084634, +1.89059305, +1.22240853, +1.42181921, +1.38932204, +1.61897588, +1.23398662, +1.88063788, +1.40694869, +1.19037938, +1.35967004, +1.05335569, +1.89155722, +1.10474277, +1.44187212, +1.47272992, +1.00545716, +1.31813073, +1.41469193, +1.30689311, +1.30779028, +1.73385549, +1.25014806, +1.09776700, +1.33520269, +1.40812171, +1.95399809, +1.36904955, +1.13990307, +1.24773622, +1.20587206, +1.07430267, +1.39782774, +1.64021468

364

365adat = getFFTI(getFFTF(data))

366adat

367+1.52872670, +1.36511123, +1.76712561, +1.26538837, +1.07254040, +1.28523278, +1.29763746, +1.47337186, +1.19020259, +1.71093822, +1.56400621, +1.20311987, +1.70289862, +1.67084479, +1.89059329, +1.22240758, +1.42181945, +1.38932180, +1.61897635, +1.23398542, +1.88063824, +1.40694845, +1.19037831, +1.35967183, +1.05335832, +1.89155638, +1.10474217, +1.44187176, +1.47273004, +1.00545657, +1.31813085, +1.41469193, +1.30689263, +1.30778980, +1.73385453, +1.25014794, +1.09776664, +1.33520305, +1.40812111, +1.95399809, +1.36904883, +1.13990271, +1.24773562, +1.20587134, +1.07430160, +1.39782691, +1.64021361

368reltol = sqrt(epsilon(1._TKC))

369reltol

370+0.345266977E-3

371isClose(data, adat, reltol = reltol)

372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

373call setAsserted(all(isClose(data, adat, reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+79

378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

379data

380+1.7585195334297112, +1.8345042238737705, +1.3417612844405813, +1.0233648489078710, +1.3652034505557917, +1.3827325302553104, +1.7695049106114482, +1.0879987808466742, +1.1039611640458300, +1.7017941610341500, +1.5786707568586731, +1.0043281059922737, +1.6140676814662609, +1.2645667747051688, +1.9941522067658379, +1.8723861670558959, +1.8664274548852924, +1.6584326894994472, +1.8124032726173978, +1.8373547642399950, +1.0009274682557976, +1.1629218756754551, +1.9373419199952457, +1.3317132914721757, +1.7130796265387040, +1.6423565309744901, +1.5936667667048363, +1.8778762386681918, +1.5682454425954691, +1.2705942124181315, +1.5993650862510638, +1.0038915088160147, +1.9951679380293625, +1.3513365403768662, +1.8823043785068800, +1.6176255955144205, +1.7543846999118191, +1.3857829945501483, +1.9400913585387709, +1.3057842584256680, +1.5093580730677369, +1.3528535738343574, +1.4289604199547095, +1.8681908647321692, +1.8881257508196678, +1.7310850022545132, +1.5378921707276385, +1.2528844484201920, +1.8595658303806681, +1.3932317256214732, +1.6812601171378529, +1.7983688603138082, +1.2299268800896037, +1.5978193969391350, +1.2282051031427961, +1.6362511712523178, +1.8370239021305945, +1.7368095519342837, +1.9282229129040656, +1.9012110588400546, +1.7125692959170782, +1.6724017976249488, +1.0541711891172525, +1.1317501963762848, +1.8786448357687255, +1.4535541920113337, +1.1055453400037880, +1.9747476513310729, +1.6019685945144095, +1.1706327749981456, +1.5513840393721687, +1.4350833629002273, +1.5357498990308098, +1.2793701997656184, +1.6853295533941939, +1.9217048896652500, +1.5437973429333922, +1.4628693851098329, +1.8201530206741541

381

382adat = getFFTI(getFFTF(data))

383adat

384+1.7585195334297137, +1.8345042238737708, +1.3417612844405822, +1.0233648489078722, +1.3652034505557924, +1.3827325302553108, +1.7695049106114455, +1.0879987808466764, +1.1039611640458320, +1.7017941610341463, +1.5786707568586731, +1.0043281059922791, +1.6140676814662587, +1.2645667747051754, +1.9941522067658328, +1.8723861670558981, +1.8664274548852910, +1.6584326894994508, +1.8124032726173969, +1.8373547642399883, +1.0009274682558067, +1.1629218756754591, +1.9373419199952342, +1.3317132914721828, +1.7130796265386998, +1.6423565309744914, +1.5936667667048394, +1.8778762386681858, +1.5682454425954682, +1.2705942124181393, +1.5993650862510553, +1.0038915088160316, +1.9951679380293459, +1.3513365403768756, +1.8823043785068709, +1.6176255955144252, +1.7543846999118156, +1.3857829945501625, +1.9400913585387545, +1.3057842584256809, +1.5093580730677352, +1.3528535738343628, +1.4289604199547175, +1.8681908647321668, +1.8881257508196638, +1.7310850022545143, +1.5378921707276356, +1.2528844484202020, +1.8595658303806561, +1.3932317256214801, +1.6812601171378487, +1.7983688603138011, +1.2299268800896133, +1.5978193969391330, +1.2282051031428032, +1.6362511712523171, +1.8370239021305901, +1.7368095519342823, +1.9282229129040611, +1.9012110588400515, +1.7125692959170782, +1.6724017976249477, +1.0541711891172587, +1.1317501963762913, +1.8786448357687200, +1.4535541920113333, +1.1055453400037971, +1.9747476513310678, +1.6019685945144091, +1.1706327749981502, +1.5513840393721678, +1.4350833629002291, +1.5357498990308087, +1.2793701997656206, +1.6853295533941930, +1.9217048896652500, +1.5437973429333931, +1.4628693851098351, +1.8201530206741547

385reltol = sqrt(epsilon(1._TKC))

386reltol

387+0.14901161193847656E-7

388isClose(data, adat, reltol = reltol)

389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

390call setAsserted(all(isClose(data, adat, reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+91

395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

396data

397+1.71773503377626314970647111948654457, +1.87970488442727436958856216717780625, +1.64958249729424522974562028406660158, +1.28582219383897309850155447931104892, +1.74917149418556380930955500843087548, +1.34784087342458773291855677477737578, +1.94728230635759947890436244433055697, +1.35096763195330857813682000211651670, +1.56693468216273079709289428146392367, +1.50042567986592642055213954569733441, +1.25892020384001171772971620526354873, +1.07218464336061136481293831120243057, +1.76776624918112911003594052014179394, +1.70031025891717471438164058340358850, +1.07131618844552126245287436203665882, +1.44686031926998871172728578476742533, +1.72885305657170680528805399259798385, +1.27966471639462744879130438625295105, +1.30660373844868891144627430560169277, +1.58775763011032399460662796136113497, +1.42309379137386917084296361519012966, +1.39995045948229326418988701149152248, +1.69191797522978064499110235721439344, +1.04261628548353332015830815678634921, +1.72488651279577225280123662696102745, +1.41619140189534044281225015175869954, +1.41759960092803699829646398094244008, +1.41918170278172273357283572190887763, +1.39148777937819959304381748218505655, +1.61850290108069248139471572049920505, +1.55340409584276876791252932945218796, +1.58764791258140861911061783087848184, +1.39605897856247452850540769456968922, +1.03224429045643742347171639629596651, +1.79605288571216218948314463505440747, +1.85355640125026469455762138145498866, +1.48172787537704872623464308893569818, +1.85467719670111492685250116496097841, +1.08685551862871031953669811687840195, +1.06106796903580941412841263541405802, +1.55336274025354120420894163022094972, +1.12333659259394148552393756039657540, +1.24398027782304083485954514323919794, +1.15838145841965985114105333321571587, +1.74295417550647537756846672584902587, +1.49607837088248927302370020101219685, +1.83001722718330280762325011860213679, +1.71670625831838151039449811341599971, +1.59958795409848062966730102049047319, +1.41148788680580479676697063555526070, +1.25603619354564763644577743549389456, +1.94698677355040871453088626012874414, +1.82927678828173182905888016988303006, +1.60419774390311063187591657115111416, +1.66329804477862292489609312314899428, +1.26905286438391121320976736500502966, +1.29664322267934733811158209553624510, +1.49737856867975956199516908701462942, +1.79260116802584597077083737219073885, +1.48711776378442343487662842848914589, +1.45154309072180310704884178796518004, +1.13386918542925345980074058125957640, +1.24756487449568178033344239530948579, +1.87118513708315214143869034529572931, +1.30555363185197713441940264636247773, +1.57732326172071494867925541632936467, +1.83824145358022820793623173294429535, +1.90424645664999849020182098601904167, +1.04469379842342586776023276260854781, +1.43968625270956519862356578590881131, +1.67933649127539030429011464061309790, +1.04237777043534004706629255242325950, +1.32950996625263042029592125633347604, +1.53518459723346883012462206935386333, +1.53728931519206865021101359979460333, +1.19239614761491784912357411245895397, +1.19291634644101655894076606362817830, +1.71858488625013408851365509699318302, +1.63326393546233696239123745575813526, +1.29734837988657269558398489688006699, +1.10273125552444103900110894068228441, +1.38880994439736326117085830359346867, +1.45529976140817326758173082152935836, +1.31300732232688577165145079350134927, +1.86969242220053572894815567021329481, +1.75558577089566867648607245664483920, +1.52253153319231668819992246488605816, +1.43634101491214432624454855749300827, +1.33948272417300068432668964310232367, +1.46739339766034394465265501939273099, +1.79473639955895390971582705707825392

398

399adat = getFFTI(getFFTF(data))

400adat

401+1.71773503377626314970647111948654495, +1.87970488442727436958856216717780644, +1.64958249729424522974562028406660177, +1.28582219383897309850155447931104892, +1.74917149418556380930955500843087548, +1.34784087342458773291855677477737617, +1.94728230635759947890436244433055697, +1.35096763195330857813682000211651728, +1.56693468216273079709289428146392444, +1.50042567986592642055213954569733518, +1.25892020384001171772971620526354950, +1.07218464336061136481293831120243095, +1.76776624918112911003594052014179491, +1.70031025891717471438164058340358946, +1.07131618844552126245287436203665882, +1.44686031926998871172728578476742533, +1.72885305657170680528805399259798385, +1.27966471639462744879130438625295105, +1.30660373844868891144627430560169200, +1.58775763011032399460662796136113497, +1.42309379137386917084296361519012908, +1.39995045948229326418988701149152287, +1.69191797522978064499110235721439363, +1.04261628548353332015830815678634979, +1.72488651279577225280123662696102861, +1.41619140189534044281225015175870012, +1.41759960092803699829646398094244066, +1.41918170278172273357283572190887821, +1.39148777937819959304381748218505617, +1.61850290108069248139471572049920485, +1.55340409584276876791252932945218757, +1.58764791258140861911061783087848146, +1.39605897856247452850540769456968883, +1.03224429045643742347171639629596632, +1.79605288571216218948314463505440689, +1.85355640125026469455762138145498923, +1.48172787537704872623464308893569857, +1.85467719670111492685250116496097995, +1.08685551862871031953669811687840310, +1.06106796903580941412841263541405860, +1.55336274025354120420894163022095049, +1.12333659259394148552393756039657617, +1.24398027782304083485954514323919755, +1.15838145841965985114105333321571548, +1.74295417550647537756846672584902529, +1.49607837088248927302370020101219569, +1.83001722718330280762325011860213583, +1.71670625831838151039449811341599894, +1.59958795409848062966730102049047223, +1.41148788680580479676697063555526089, +1.25603619354564763644577743549389417, +1.94698677355040871453088626012874375, +1.82927678828173182905888016988302929, +1.60419774390311063187591657115111282, +1.66329804477862292489609312314899389, +1.26905286438391121320976736500502831, +1.29664322267934733811158209553624548, +1.49737856867975956199516908701462980, +1.79260116802584597077083737219073981, +1.48711776378442343487662842848914685, +1.45154309072180310704884178796518062, +1.13386918542925345980074058125957737, +1.24756487449568178033344239530948695, +1.87118513708315214143869034529572893, +1.30555363185197713441940264636247773, +1.57732326172071494867925541632936428, +1.83824145358022820793623173294429497, +1.90424645664999849020182098601904109, +1.04469379842342586776023276260854762, +1.43968625270956519862356578590881054, +1.67933649127539030429011464061309790, +1.04237777043534004706629255242326008, +1.32950996625263042029592125633347681, +1.53518459723346883012462206935386430, +1.53728931519206865021101359979460391, +1.19239614761491784912357411245895454, +1.19291634644101655894076606362817888, +1.71858488625013408851365509699318283, +1.63326393546233696239123745575813526, +1.29734837988657269558398489688006699, +1.10273125552444103900110894068228441, +1.38880994439736326117085830359346810, +1.45529976140817326758173082152935836, +1.31300732232688577165145079350134869, +1.86969242220053572894815567021329539, +1.75558577089566867648607245664484017, +1.52253153319231668819992246488605874, +1.43634101491214432624454855749300885, +1.33948272417300068432668964310232406, +1.46739339766034394465265501939273214, +1.79473639955895390971582705707825469

402reltol = sqrt(epsilon(1._TKC))

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, adat, reltol = reltol)

406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

407call setAsserted(all(isClose(data, adat, reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+74

412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

413data

414(+1.90651810, +0.507423759), (+1.03709030, +0.446338236), (+1.81376624, +0.238995135), (+1.69347370, +0.893804193), (+1.93462253, +0.809998930), (+1.80596662, +0.383055806E-1), (+1.59682870, +0.980212092), (+1.39282060, +0.661338687), (+1.76190031, +0.828412235), (+1.61732733, +0.650445998), (+1.94763803, +0.475995719), (+1.71187496, +0.290024281E-1), (+1.72770023, +0.634940624), (+1.89915967, +0.852608204), (+1.78726161, +0.142129481), (+1.59253573, +0.709791660), (+1.29014087, +0.993124127), (+1.20665622, +0.560859740), (+1.77698958, +0.506894588), (+1.94139457, +0.626827478), (+1.83320069, +0.183578789), (+1.46887219, +0.573599696), (+1.18158817, +0.933406353), (+1.93638277, +0.333279490), (+1.77362132, +0.650011420), (+1.66804159, +0.245341361), (+1.01321292, +0.755272090), (+1.48454511, +0.618950725), (+1.41080046, +0.457991302), (+1.00336540, +0.713920772), (+1.88509095, +0.406746089), (+1.51017225, +0.877298772), (+1.49835324, +0.370222330E-2), (+1.65332162, +0.585098684), (+1.46195900, +0.439945221), (+1.73981464, +0.447009146), (+1.57559347, +0.441233218), (+1.23274565, +0.246361017), (+1.95004547, +0.468690693), (+1.83009481, +0.481349230E-2), (+1.44089317, +0.377264321), (+1.70400000, +0.974848986), (+1.33555925, +0.965958357), (+1.89422548, +0.479884386), (+1.03604960, +0.332909226), (+1.71972680, +0.405033946), (+1.61865783, +0.182142496), (+1.95771909, +0.722336173), (+1.45514524, +0.644938529), (+1.46181190, +0.205705464), (+1.79193354, +0.811632574), (+1.21001434, +0.404519558), (+1.51241708, +0.243355095), (+1.19289231, +0.561245322), (+1.82566655, +0.812302709), (+1.99543071, +0.312209129E-1), (+1.50361800, +0.470917046), (+1.19774914, +0.669487715), (+1.82364559, +0.165844500), (+1.08988130, +0.228816867), (+1.50056350, +0.340295613), (+1.49471760, +0.270362735), (+1.61610556, +0.320423305), (+1.41714323, +0.623431742), (+1.36697173, +0.509285092), (+1.41678476, +0.294510961), (+1.91780424, +0.786395848), (+1.65418792, +0.765284300E-1), (+1.85522819, +0.973390758), (+1.02295113, +0.566723585), (+1.22521806, +0.952684283E-1), (+1.80659819, +0.599746883), (+1.96132147, +0.377208591E-1), (+1.17483068, +0.667983890)

415

416adat = getFFTI(getFFTF(data))

417adat

418(+1.90651977, +0.507424235), (+1.03709018, +0.446338296), (+1.81376612, +0.238995090), (+1.69347358, +0.893804193), (+1.93462229, +0.809998930), (+1.80596638, +0.383054391E-1), (+1.59682882, +0.980212152), (+1.39282048, +0.661338866), (+1.76190042, +0.828412235), (+1.61732733, +0.650446117), (+1.94763792, +0.475995719), (+1.71187449, +0.290024094E-1), (+1.72770000, +0.634940565), (+1.89915991, +0.852608383), (+1.78726137, +0.142129585), (+1.59253526, +0.709791720), (+1.29014075, +0.993124187), (+1.20665562, +0.560859740), (+1.77698958, +0.506894588), (+1.94139457, +0.626827538), (+1.83319998, +0.183578655), (+1.46887195, +0.573599756), (+1.18158793, +0.933406532), (+1.93638301, +0.333279669), (+1.77362132, +0.650011361), (+1.66804135, +0.245341405), (+1.01321244, +0.755272031), (+1.48454487, +0.618950784), (+1.41080022, +0.457991332), (+1.00336587, +0.713920891), (+1.88509107, +0.406746030), (+1.51017189, +0.877298653), (+1.49835312, +0.370211224E-2), (+1.65332103, +0.585098743), (+1.46195889, +0.439945191), (+1.73981464, +0.447009265), (+1.57559335, +0.441233307), (+1.23274708, +0.246361434), (+1.95004523, +0.468690664), (+1.83009481, +0.481347786E-2), (+1.44089329, +0.377264082), (+1.70399988, +0.974849224), (+1.33555913, +0.965958297), (+1.89422488, +0.479884535), (+1.03604960, +0.332909346), (+1.71972656, +0.405033916), (+1.61865759, +0.182142437), (+1.95771921, +0.722336292), (+1.45514512, +0.644938409), (+1.46181154, +0.205705434), (+1.79193342, +0.811632574), (+1.21001434, +0.404519647), (+1.51241684, +0.243355274), (+1.19289219, +0.561245263), (+1.82566631, +0.812302709), (+1.99543047, +0.312210042E-1), (+1.50361788, +0.470917016), (+1.19774878, +0.669487834), (+1.82364511, +0.165844306), (+1.08988070, +0.228816941), (+1.50056350, +0.340295762), (+1.49471736, +0.270362914), (+1.61610520, +0.320423394), (+1.41714311, +0.623431742), (+1.36697161, +0.509284914), (+1.41678417, +0.294511020), (+1.91780448, +0.786395729), (+1.65418804, +0.765283927E-1), (+1.85522819, +0.973390877), (+1.02295089, +0.566723526), (+1.22521794, +0.952684805E-1), (+1.80659783, +0.599746764), (+1.96132147, +0.377207771E-1), (+1.17483044, +0.667983949)

419reltol = sqrt(epsilon(1._TKC))

420reltol

421+0.345266977E-3

422isClose(data, adat, reltol = reltol)

423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

424call setAsserted(all(isClose(data, adat, reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+86

429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

430data

431(+1.9689322104959817, +0.11968464100573850), (+1.6881592515203745, +0.75860022029746066E-1), (+1.1009712578633439, +0.68495544457209123), (+1.6758903702599488, +0.28836971162360070), (+1.0662273196142817, +0.29757688583308961), (+1.6181849682122476, +0.98181816385581777), (+1.3289533281870995, +0.31246185277629535), (+1.9695578224428276, +0.41566639256763849), (+1.1832808164133279, +0.86543324712939718), (+1.7741220160133966, +0.57221008499232384), (+1.8604326210635154, +0.59767598140014533), (+1.8841615078780629, +0.35291249311437012E-1), (+1.0162981976523473, +0.47602188959111980), (+1.6441944321015287, +0.38396570682081765), (+1.0739328117099642, +0.96340928507586998), (+1.1041811732016560, +0.41404298796629246), (+1.2762814723135127, +0.35197764996147896), (+1.5135774732290366, +0.21900842682092136E-1), (+1.0680001704145832, +0.30272575003775570), (+1.7295098040269412, +0.30656953599605996), (+1.5081353094577317, +0.29556685277085570), (+1.2074461677355366, +0.82951165716523068), (+1.6925425003893593, +0.17551328370684960E-1), (+1.6033277874282230, +0.44264619485073564), (+1.7876546166595162, +0.14477311071777732), (+1.1396546134170111, +0.93746283759350524), (+1.1106869690187735, +0.66277386695709450), (+1.7000610843948312, +0.25936318826238425), (+1.5464773766379785, +0.30653827882016560), (+1.1631994920270681, +0.37227001338106758), (+1.3644325563051674, +0.69773490641246005), (+1.8432554461201953, +0.42190112320686790), (+1.2718768726162026, +0.67353668675778422), (+1.4777800511620209, +0.80475398840329004), (+1.3100909743219784, +0.91840140531224201), (+1.9916054511851571, +0.43295697364390473), (+1.9939991625779285, +0.51698221457276983E-2), (+1.0466209783196612, +0.26677312195439784), (+1.9631971347194872, +0.18605735014906921), (+1.9741342302347797, +0.14045033511742955), (+1.1735592117561593, +0.82078145970364791), (+1.3155382761586996, +0.80809042714554258), (+1.4639712054664227, +0.89457883787701498), (+1.1958448385419007, +0.88108749452971613), (+1.9095624895804988, +0.43334791769936876), (+1.1818150947653647, +0.77558129866723835), (+1.6403710139063064, +0.40527040305524042), (+1.3837291227853634, +0.10655444579592444), (+1.9266897967178871, +0.84667642209175464), (+1.3117272832152356, +0.14101190076643366), (+1.1751877463391769, +0.23642360767629100), (+1.2820740799850339, +0.70995939943284092), (+1.2860608699627356, +0.54115811115850765), (+1.9288503671052672, +0.28007819885241581), (+1.7993544710418843, +0.93485956362966083), (+1.2970753762210534, +0.18085256925801196), (+1.3933137006459724, +0.93387572074730374), (+1.9861594994346390, +0.71188761400237444E-1), (+1.5393247325895496, +0.39948759680581092E-1), (+1.8271807206640038, +0.96868443158850237E-1), (+1.7791476419883376, +0.46776041785554956), (+1.2168415900748668, +0.76108950927995866), (+1.4196372356229903, +0.34676883923738167), (+1.6257918950556118, +0.50741531484282898), (+1.9976862888041196, +0.27133053370661120), (+1.7618290404919452, +0.44067793568347990), (+1.4719525545878753, +0.48672862095984426), (+1.9592393483493025, +0.81213133625102518E-1), (+1.2670181907208589, +0.66658918825950564), (+1.0719238493137664, +0.21578236172947618), (+1.3347912430294180, +0.13670539956090455), (+1.3306079726795801, +0.62480279053997190), (+1.5918821771677183, +0.47146769285505963), (+1.6648048371540702, +0.80830064061779017), (+1.1702420943406779, +0.20564102986204258E-1), (+1.8920999792063349, +0.78038559635629579), (+1.5024564623322769, +0.25778958626231163), (+1.2808142910371441, +0.46550917826778571), (+1.1133665971277702, +0.71701059854429794), (+1.4068126856781891, +0.28509567622411747), (+1.9248460311253641, +0.20397699689677462), (+1.8548401798254202, +0.30151922923762808), (+1.4563402783393413, +0.71983875849519641), (+1.8322894094506523, +0.26067605976640296), (+1.7953706374617975, +0.31449112896709386), (+1.1078857662506003, +0.72532462276915000)

432

433adat = getFFTI(getFFTF(data))

434adat

435(+1.9689322104959832, +0.11968464100573886), (+1.6881592515203745, +0.75860022029746274E-1), (+1.1009712578633444, +0.68495544457209145), (+1.6758903702599492, +0.28836971162360081), (+1.0662273196142820, +0.29757688583308955), (+1.6181849682122464, +0.98181816385581733), (+1.3289533281870995, +0.31246185277629546), (+1.9695578224428274, +0.41566639256763860), (+1.1832808164133279, +0.86543324712939729), (+1.7741220160133970, +0.57221008499232362), (+1.8604326210635156, +0.59767598140014511), (+1.8841615078780629, +0.35291249311437171E-1), (+1.0162981976523477, +0.47602188959111985), (+1.6441944321015294, +0.38396570682081788), (+1.0739328117099654, +0.96340928507586976), (+1.1041811732016564, +0.41404298796629252), (+1.2762814723135139, +0.35197764996147907), (+1.5135774732290377, +0.21900842682092189E-1), (+1.0680001704145841, +0.30272575003775581), (+1.7295098040269419, +0.30656953599606002), (+1.5081353094577321, +0.29556685277085548), (+1.2074461677355370, +0.82951165716523056), (+1.6925425003893602, +0.17551328370685342E-1), (+1.6033277874282235, +0.44264619485073525), (+1.7876546166595173, +0.14477311071777724), (+1.1396546134170122, +0.93746283759350535), (+1.1106869690187742, +0.66277386695709462), (+1.7000610843948325, +0.25936318826238408), (+1.5464773766379789, +0.30653827882016565), (+1.1631994920270690, +0.37227001338106752), (+1.3644325563051685, +0.69773490641246028), (+1.8432554461201953, +0.42190112320686773), (+1.2718768726162029, +0.67353668675778433), (+1.4777800511620216, +0.80475398840329004), (+1.3100909743219791, +0.91840140531224190), (+1.9916054511851575, +0.43295697364390490), (+1.9939991625779294, +0.51698221457276722E-2), (+1.0466209783196618, +0.26677312195439740), (+1.9631971347194865, +0.18605735014906902), (+1.9741342302347793, +0.14045033511742944), (+1.1735592117561600, +0.82078145970364813), (+1.3155382761586993, +0.80809042714554247), (+1.4639712054664229, +0.89457883787701498), (+1.1958448385419020, +0.88108749452971624), (+1.9095624895804992, +0.43334791769936892), (+1.1818150947653647, +0.77558129866723824), (+1.6403710139063070, +0.40527040305524042), (+1.3837291227853632, +0.10655444579592439), (+1.9266897967178866, +0.84667642209175464), (+1.3117272832152360, +0.14101190076643352), (+1.1751877463391776, +0.23642360767629095), (+1.2820740799850348, +0.70995939943284092), (+1.2860608699627361, +0.54115811115850765), (+1.9288503671052675, +0.28007819885241586), (+1.7993544710418850, +0.93485956362966105), (+1.2970753762210538, +0.18085256925801205), (+1.3933137006459730, +0.93387572074730396), (+1.9861594994346397, +0.71188761400237430E-1), (+1.5393247325895503, +0.39948759680581133E-1), (+1.8271807206640049, +0.96868443158850126E-1), (+1.7791476419883385, +0.46776041785554956), (+1.2168415900748684, +0.76108950927995866), (+1.4196372356229916, +0.34676883923738167), (+1.6257918950556127, +0.50741531484282898), (+1.9976862888041209, +0.27133053370661142), (+1.7618290404919459, +0.44067793568347963), (+1.4719525545878758, +0.48672862095984409), (+1.9592393483493027, +0.81213133625102574E-1), (+1.2670181907208597, +0.66658918825950586), (+1.0719238493137673, +0.21578236172947612), (+1.3347912430294191, +0.13670539956090480), (+1.3306079726795803, +0.62480279053997201), (+1.5918821771677190, +0.47146769285505974), (+1.6648048371540709, +0.80830064061779039), (+1.1702420943406784, +0.20564102986204331E-1), (+1.8920999792063351, +0.78038559635629601), (+1.5024564623322774, +0.25778958626231141), (+1.2808142910371443, +0.46550917826778582), (+1.1133665971277704, +0.71701059854429816), (+1.4068126856781895, +0.28509567622411730), (+1.9248460311253639, +0.20397699689677445), (+1.8548401798254202, +0.30151922923762831), (+1.4563402783393415, +0.71983875849519674), (+1.8322894094506523, +0.26067605976640279), (+1.7953706374617975, +0.31449112896709386), (+1.1078857662506001, +0.72532462276915000)

436reltol = sqrt(epsilon(1._TKC))

437reltol

438+0.14901161193847656E-7

439isClose(data, adat, reltol = reltol)

440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

441call setAsserted(all(isClose(data, adat, reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+62

446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

447data

448(+1.18527049797335343407592827004939703, +0.587996532844836542609674871696817910), (+1.80824133159322258068794395230205371, +0.373456022048939579077024211306481512), (+1.99159339357698923611068326711753884, +0.671955314764553321197461670746718069E-1), (+1.21738494401990184704781932174263562, +0.430413572149345343182924616071012076), (+1.03765937562973242538111647287885378, +0.404632728236191907282718652155731609E-1), (+1.04374215683627149705867303817415386, +0.123587673452470531978173202508424635), (+1.33886920780480250751669443856976070, +0.796908858980571406640367040668838003E-1), (+1.97694184032338473315089404156103272, +0.394239221539429266841083500433480094), (+1.22153416424894651096848362196693800, +0.206562702641039275694102443128478975), (+1.41227246074535068697918652618210076, +0.828071276855309281588771437120405662), (+1.87859243791090276704444643514091546, +0.644799501538037952887883134582155652), (+1.07639177530947360033033070290054265, +0.569921333039352916007415928193493703), (+1.05902075623053633939192452976840108, +0.459928546447964488155071593035464861), (+1.96885131533027876950001635151176229, +0.373735851195317922529242872736314682), (+1.41606375176988920830149118251400296, +0.257407757439358200261126805746056726), (+1.73486964932329016605990049891348887, +0.773011921699644266920063533383983763), (+1.41182563841868799649887471459152018, +0.671396911566407846272068686515284771), (+1.14089885454716215095019911912606024, +0.216801441584673935283812762299649763), (+1.28582357156961722156168190992977233, +0.877354469199885786806476089139545113), (+1.94180025990410123559889456713234519, +0.328180307301141929236571276874298251E-1), (+1.68114455980533583644843069586688972, +0.897470164205628590767261882973292504), (+1.64829586035548028521970409919573207, +0.845614450120034753247602974252712748), (+1.73909033388170240954288518666234855, +0.440297907169878485460560102463288806), (+1.03853568721924341064943920903977985, +0.491330223850420340496639854089383849), (+1.80473260737850410857696411130264052, +0.137373810134113524555807672803570851), (+1.07532132144284798588365264182189134, +0.821222135847793750130441406016123768), (+1.95194223447984489071576408059481391, +0.866461233678451021611074768903631522), (+1.49135336250053620369066516589541770, +0.838351117186269818129425167979455782), (+1.67602584014016101176842086490477073, +0.424972842311589901673297805600229467), (+1.28820105115091235719916603583667291, +0.101894755059118021295267997288258362), (+1.57926317455999741498200384243054365, +0.983975809653036871880300432636303642), (+1.53755463699404482214434622390638021, +0.757058968746621414846167430812792184), (+1.98815088832728227759393769019690756, +0.235053346610815140857567840675833770), (+1.61454687288080866773874646770131226, +0.856215291234387501382535458079271155), (+1.26319242921344190518417912941289222, +0.520032339699336913188761934574639897), (+1.08202181303932702911407328387526630, +0.846545832860145267582333664542286019), (+1.96441886908402278695667834236942004, +0.441246619987770692148883869267173596), (+1.76948280486371719699693789556986681, +0.896672223487469334715287643845096313), (+1.34314259588766272412549029079304151, +0.491429768976772917252616730929622701), (+1.94610683041856192327629481078873251, +0.987443617440365292911118105355333948), (+1.29094708996042676998938511125881742, +0.355870902971601504002783829546366928), (+1.86508432448509539965084858198253350, +0.615271309914620057600836104515730282), (+1.68154404998505342290156761671161816, +0.991971854041910016125681925311842633), (+1.52371830870636425332333727712583168, +0.869822370906550456275057769343394174), (+1.54814242965382212178443235492854607, +0.510667192562730362402983149032478100E-1), (+1.78623702944191266253662874204248650, +0.438258190634874527890874741002711873), (+1.81486527661579466964775869229648742, +0.328968621474693558444506977920169080), (+1.78902074367312110709371463034791945, +0.212594149249895388586548516710646584), (+1.20184970152506623906384068019351899, +0.640345442832073405900121751468834142), (+1.43850083175004909220232811407501416, +0.266734989353953503035334498910461762), (+1.85030725307282179481250367567694370, +0.878804151081630283432181749264769313), (+1.01940331505017926207543650146843757, +0.104947453338711920185566990448425918), (+1.71957267978004050407444364322925908, +0.190274498255274804046040348870822708), (+1.27646422249030176994309661889103432, +0.390590059660390164605685234385294854), (+1.87275163430031892171283247617643615, +0.414635325673804989756858840847923610), (+1.82400635899200211883191074646541796, +0.409300450552989151277401233238408317), (+1.97923454863906704622325788157210714, +0.534619446677535914847112543596832646), (+1.60465067319554227055337777751536325, +0.592977374335426348284789819043567010), (+1.66222415144411830932032928245176699, +0.770730706644962645224278629182202509), (+1.89073175073165408193785462848976566, +0.927056895849968812620631487079776939), (+1.76587991216848855844162157955457397, +0.995305333545601255342348190586216738), (+1.39672445964436830836848517381796201, +0.278082146421334290533531648448643423)

449

450adat = getFFTI(getFFTF(data))

451adat

452(+1.18527049797335343407592827004939529, +0.587996532844836542609674871696817139), (+1.80824133159322258068794395230205448, +0.373456022048939579077024211306481560), (+1.99159339357698923611068326711753922, +0.671955314764553321197461670746717226E-1), (+1.21738494401990184704781932174263600, +0.430413572149345343182924616071012317), (+1.03765937562973242538111647287885378, +0.404632728236191907282718652155730526E-1), (+1.04374215683627149705867303817415367, +0.123587673452470531978173202508424972), (+1.33886920780480250751669443856976051, +0.796908858980571406640367040668838605E-1), (+1.97694184032338473315089404156103234, +0.394239221539429266841083500433480094), (+1.22153416424894651096848362196693723, +0.206562702641039275694102443128478879), (+1.41227246074535068697918652618210057, +0.828071276855309281588771437120405662), (+1.87859243791090276704444643514091565, +0.644799501538037952887883134582155844), (+1.07639177530947360033033070290054246, +0.569921333039352916007415928193493895), (+1.05902075623053633939192452976840089, +0.459928546447964488155071593035464620), (+1.96885131533027876950001635151176133, +0.373735851195317922529242872736314442), (+1.41606375176988920830149118251400296, +0.257407757439358200261126805746056871), (+1.73486964932329016605990049891348810, +0.773011921699644266920063533383983859), (+1.41182563841868799649887471459151922, +0.671396911566407846272068686515284578), (+1.14089885454716215095019911912606024, +0.216801441584673935283812762299649667), (+1.28582357156961722156168190992977137, +0.877354469199885786806476089139545016), (+1.94180025990410123559889456713234480, +0.328180307301141929236571276874300117E-1), (+1.68114455980533583644843069586688914, +0.897470164205628590767261882973292215), (+1.64829586035548028521970409919573226, +0.845614450120034753247602974252712748), (+1.73909033388170240954288518666234874, +0.440297907169878485460560102463288806), (+1.03853568721924341064943920903977985, +0.491330223850420340496639854089384138), (+1.80473260737850410857696411130264013, +0.137373810134113524555807672803570682), (+1.07532132144284798588365264182189076, +0.821222135847793750130441406016123479), (+1.95194223447984489071576408059481353, +0.866461233678451021611074768903631619), (+1.49135336250053620369066516589541808, +0.838351117186269818129425167979456167), (+1.67602584014016101176842086490477189, +0.424972842311589901673297805600229804), (+1.28820105115091235719916603583667291, +0.101894755059118021295267997288258591), (+1.57926317455999741498200384243054462, +0.983975809653036871880300432636303738), (+1.53755463699404482214434622390637828, +0.757058968746621414846167430812791318), (+1.98815088832728227759393769019690852, +0.235053346610815140857567840675833698), (+1.61454687288080866773874646770131245, +0.856215291234387501382535458079271251), (+1.26319242921344190518417912941289280, +0.520032339699336913188761934574640186), (+1.08202181303932702911407328387526610, +0.846545832860145267582333664542286404), (+1.96441886908402278695667834236942004, +0.441246619987770692148883869267173644), (+1.76948280486371719699693789556986662, +0.896672223487469334715287643845096506), (+1.34314259588766272412549029079304113, +0.491429768976772917252616730929622653), (+1.94610683041856192327629481078873193, +0.987443617440365292911118105355333756), (+1.29094708996042676998938511125881742, +0.355870902971601504002783829546366880), (+1.86508432448509539965084858198253369, +0.615271309914620057600836104515730379), (+1.68154404998505342290156761671161777, +0.991971854041910016125681925311842440), (+1.52371830870636425332333727712583149, +0.869822370906550456275057769343393982), (+1.54814242965382212178443235492854530, +0.510667192562730362402983149032476535E-1), (+1.78623702944191266253662874204248631, +0.438258190634874527890874741002711969), (+1.81486527661579466964775869229648626, +0.328968621474693558444506977920169176), (+1.78902074367312110709371463034791849, +0.212594149249895388586548516710646512), (+1.20184970152506623906384068019351880, +0.640345442832073405900121751468834239), (+1.43850083175004909220232811407501300, +0.266734989353953503035334498910461618), (+1.85030725307282179481250367567694351, +0.878804151081630283432181749264768928), (+1.01940331505017926207543650146843757, +0.104947453338711920185566990448426231), (+1.71957267978004050407444364322925908, +0.190274498255274804046040348870822828), (+1.27646422249030176994309661889103432, +0.390590059660390164605685234385295095), (+1.87275163430031892171283247617643596, +0.414635325673804989756858840847923658), (+1.82400635899200211883191074646541719, +0.409300450552989151277401233238408414), (+1.97923454863906704622325788157210695, +0.534619446677535914847112543596832934), (+1.60465067319554227055337777751536363, +0.592977374335426348284789819043566914), (+1.66222415144411830932032928245176719, +0.770730706644962645224278629182202702), (+1.89073175073165408193785462848976624, +0.927056895849968812620631487079777131), (+1.76587991216848855844162157955457474, +0.995305333545601255342348190586216738), (+1.39672445964436830836848517381796298, +0.278082146421334290533531648448643760)

453reltol = sqrt(epsilon(1._TKC))

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, adat, reltol = reltol)

457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

458call setAsserted(all(isClose(data, adat, reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+89

463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

464data

465+1.61366487, +1.76547384, +1.11037302, +1.94107687, +1.18752098, +1.32626116, +1.27984118, +1.88051653, +1.55760026, +1.69891310, +1.17229736, +1.04869044, +1.28245878, +1.88494921, +1.92027760, +1.33276761, +1.16974115, +1.00205970, +1.95786631, +1.54843676, +1.46054769, +1.63961744, +1.72307479, +1.81115460, +1.06924939, +1.50280011, +1.78226531, +1.45422506, +1.83324170, +1.76919246, +1.54444408, +1.51950550, +1.21788359, +1.23557949, +1.42530727, +1.61518753, +1.95367479, +1.26097155, +1.34230661, +1.51888967, +1.01941848, +1.14700580, +1.89179552, +1.47708237, +1.36028993, +1.66015303, +1.35369253, +1.27059650, +1.16923702, +1.80918694, +1.75612497, +1.79518104, +1.28147793, +1.95093203, +1.09315419, +1.73464417, +1.20729041, +1.19766212, +1.82809401, +1.68552423, +1.62877154, +1.99491203, +1.47858047, +1.69168866, +1.81446481, +1.82385731, +1.56357694, +1.87571669, +1.33693933, +1.61655903, +1.93461025, +1.30092454, +1.30737853, +1.31368876, +1.21966672, +1.54664540, +1.15010464, +1.39257681, +1.16648769, +1.50578260, +1.26832330, +1.60600877, +1.48770404, +1.78917718, +1.69971752, +1.31466591, +1.67139554, +1.55232227, +1.38502026

466

467adat = getFFTI(getFFTF(data))

468adat

469+1.61366653, +1.76547432, +1.11037505, +1.94107664, +1.18752289, +1.32626176, +1.27984333, +1.88051581, +1.55760121, +1.69891202, +1.17229998, +1.04869270, +1.28246057, +1.88494706, +1.92027438, +1.33277082, +1.16974294, +1.00206625, +1.95786035, +1.54843795, +1.46055019, +1.63961601, +1.72307444, +1.81114888, +1.06925797, +1.50280094, +1.78226030, +1.45423019, +1.83323753, +1.76919007, +1.54444504, +1.51950347, +1.21788812, +1.23558307, +1.42530739, +1.61518693, +1.95366406, +1.26097929, +1.34230828, +1.51888597, +1.01942837, +1.14701366, +1.89177942, +1.47708333, +1.36029649, +1.66014576, +1.35369325, +1.27059543, +1.16924798, +1.80918050, +1.75612545, +1.79517448, +1.28149033, +1.95091748, +1.09316790, +1.73463356, +1.20729721, +1.19766796, +1.82808769, +1.68552375, +1.62877464, +1.99490428, +1.47858632, +1.69168758, +1.81446469, +1.82385552, +1.56358063, +1.87571037, +1.33694577, +1.61655807, +1.93460536, +1.30092835, +1.30737936, +1.31369007, +1.21966970, +1.54664326, +1.15010786, +1.39257622, +1.16649020, +1.50578189, +1.26832569, +1.60600829, +1.48770559, +1.78917754, +1.69971728, +1.31466782, +1.67139578, +1.55232346, +1.38502133

470reltol = sqrt(epsilon(1._TKC))

471reltol

472+0.345266977E-3

473isClose(data, adat, reltol = reltol)

474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

475call setAsserted(all(isClose(data, adat, reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+97

480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

481data

482+1.6981146700977283, +1.8088276880504941, +1.1086803847040936, +1.6451750881639651, +1.3280261666871471, +1.7382588883257992, +1.8047687694104759, +1.4404769726706546, +1.2767937365129414, +1.6519489673793650, +1.6424402670914129, +1.6822550355868509, +1.0508567275728598, +1.2929642136208492, +1.8528428436515956, +1.9444790136596413, +1.1748117414238641, +1.5421989148727246, +1.5717410475829294, +1.6724221794717304, +1.0545015445265298, +1.4981055178340903, +1.3843849135757342, +1.8541544107946404, +1.2189372992013812, +1.5496464955307061, +1.9326271610658772, +1.2114023863715582, +1.1049223514110502, +1.0520022490403083, +1.5044130646433449, +1.9275088007015619, +1.1356374297084746, +1.7716830752629722, +1.9518133615196802, +1.8220241507287378, +1.8740828640112381, +1.3841358632117680, +1.4023135784442624, +1.4573557106147430, +1.8912354878069240, +1.2431532047680982, +1.9874192376645301, +1.8623141088395423, +1.2466060219829811, +1.1775639038618424, +1.9610871501073364, +1.3768948858337815, +1.5306137496452989, +1.6521241383203691, +1.2506776753644449, +1.9153779732303395, +1.4955011921963344, +1.1060160591190729, +1.1784642648279293, +1.4789043190842210, +1.5248095551074319, +1.2726517108609934, +1.8956512341812730, +1.5082175619139577, +1.7074927436191931, +1.1993274897746278, +1.8436855183254461, +1.8275021387848391, +1.6284886503923015, +1.7140258818801730, +1.3446811261303975, +1.9604328977881815, +1.0870964060939978, +1.2253585423114686, +1.1702410800522192, +1.6754903711590219, +1.1133271379130960, +1.5798873130433677, +1.5535583514740336, +1.4807716315181676, +1.9522507270263740, +1.4603037008220250, +1.1019528350271481, +1.8839805715216582, +1.3119082169962186, +1.6070795161008637, +1.2226979748832800, +1.5168343708278618, +1.7592943031517159, +1.5376770170649818, +1.1541005932478376, +1.4439300876219319, +1.5548437492427198, +1.8665272974225209, +1.7791580661971564, +1.0729345093024061, +1.6539618384954058, +1.2292495912813504, +1.7102134702697076, +1.4629845515960673, +1.2434609157573138

483

484adat = getFFTI(getFFTF(data))

485adat

486+1.6981146700977305, +1.8088276880504941, +1.1086803847040960, +1.6451750881639651, +1.3280261666871496, +1.7382588883257977, +1.8047687694104755, +1.4404769726706561, +1.2767937365129458, +1.6519489673793626, +1.6424402670914127, +1.6822550355868440, +1.0508567275728680, +1.2929642136208543, +1.8528428436515905, +1.9444790136596264, +1.1748117414238790, +1.5421989148727240, +1.5717410475829310, +1.6724221794717178, +1.0545015445265480, +1.4981055178340816, +1.3843849135757418, +1.8541544107946197, +1.2189372992013963, +1.5496464955307054, +1.9326271610658563, +1.2114023863715719, +1.1049223514110584, +1.0520022490403211, +1.5044130646433416, +1.9275088007015357, +1.1356374297085070, +1.7716830752629620, +1.9518133615196693, +1.8220241507287380, +1.8740828640112248, +1.3841358632117835, +1.4023135784442666, +1.4573557106147512, +1.8912354878068971, +1.2431532047681286, +1.9874192376645048, +1.8623141088395250, +1.2466060219829944, +1.1775639038618644, +1.9610871501072924, +1.3768948858337997, +1.5306137496453012, +1.6521241383203609, +1.2506776753644731, +1.9153779732303013, +1.4955011921963266, +1.1060160591190857, +1.1784642648279362, +1.4789043190842166, +1.5248095551074254, +1.2726517108610151, +1.8956512341812441, +1.5082175619139684, +1.7074927436191796, +1.1993274897746544, +1.8436855183254326, +1.8275021387848309, +1.6284886503923071, +1.7140258818801648, +1.3446811261304159, +1.9604328977881507, +1.0870964060940180, +1.2253585423114692, +1.1702410800522325, +1.6754903711590035, +1.1133271379131149, +1.5798873130433591, +1.5535583514740328, +1.4807716315181718, +1.9522507270263569, +1.4603037008220283, +1.1019528350271637, +1.8839805715216387, +1.3119082169962328, +1.6070795161008551, +1.2226979748832902, +1.5168343708278600, +1.7592943031517110, +1.5376770170649798, +1.1541005932478436, +1.4439300876219296, +1.5548437492427207, +1.8665272974225176, +1.7791580661971556, +1.0729345093024116, +1.6539618384954036, +1.2292495912813530, +1.7102134702697072, +1.4629845515960689, +1.2434609157573147

487reltol = sqrt(epsilon(1._TKC))

488reltol

489+0.14901161193847656E-7

490isClose(data, adat, reltol = reltol)

491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

492call setAsserted(all(isClose(data, adat, reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+58

497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

498data

499+1.93349110615002772676153941942342216, +1.41688293295138009560080228077449499, +1.88016898817737937269511617413022058, +1.69686910607670157574246550207734847, +1.29205319451852219421003916136075780, +1.99227554856571154072017651995469507, +1.66325949086891518321119932115535728, +1.50147422305446816217338877035038742, +1.68083905149662946270876393011592087, +1.73522398768294704348196260943493508, +1.45008302431557609208014846907879054, +1.81975008645581873865897740764134870, +1.33949169578826838136436300542326935, +1.70125144305120155129402673906302137, +1.84223636418579938351179205415580294, +1.92810686994541330293889277153105289, +1.58526062188589604345753715653133599, +1.88189256464209983739432941357684463, +1.40928492813032972523013796055381794, +1.38724756445736787319157243292110386, +1.24356167700547412186326228068641406, +1.02143606687104130815751043945506548, +1.13693304751533730568653711734417189, +1.35128748462268408071502689533623095, +1.22279067835748634290066609765016839, +1.61069588964551624064561907163519042, +1.90296025875650373824286561070109929, +1.87432895257326878439708129394694002, +1.60150184002623276561182974416474537, +1.81977306740217195996840616067775257, +1.07019891878679316588800591907979693, +1.77555131690310534088442286889802457, +1.93049359396632535373953085049159004, +1.20693415466102366731473456469947191, +1.34569072385725130529107082218168737, +1.02497661332599390220998098063133901, +1.16372493493959444581320301979796668, +1.11384970982992289323532869685260564, +1.55112012893965689930491234054119540, +1.04982074690924931555209059770173250, +1.76643382112268253297638250626325626, +1.90571898720579775242234027973421887, +1.47711240659422557557615863243241239, +1.86997958257663182222465095879113037, +1.80811033748524711027241219723288649, +1.17605731944146008746748218213209480, +1.98729778636299527022058284499210929, +1.09048981109110416735275501722769513, +1.35458563980370681245713456625751544, +1.08140945301004442460345979920384018, +1.98293936188958904449648654031236943, +1.45932810019637045205021897667117566, +1.13037769663840572908901872906800854, +1.24857572923300011507109267009312613, +1.25600656390092805695936433743268036, +1.90014118701569110945304294210136484, +1.41926312326036345250771743200185982, +1.75043329202847852547217872300792030

500

501adat = getFFTI(getFFTF(data))

502adat

503+1.93349110615002772676153941942342120, +1.41688293295138009560080228077449422, +1.88016898817737937269511617413022078, +1.69686910607670157574246550207734751, +1.29205319451852219421003916136075703, +1.99227554856571154072017651995469468, +1.66325949086891518321119932115535728, +1.50147422305446816217338877035038684, +1.68083905149662946270876393011592145, +1.73522398768294704348196260943493508, +1.45008302431557609208014846907879150, +1.81975008645581873865897740764134928, +1.33949169578826838136436300542326839, +1.70125144305120155129402673906302156, +1.84223636418579938351179205415580487, +1.92810686994541330293889277153105423, +1.58526062188589604345753715653133676, +1.88189256464209983739432941357684617, +1.40928492813032972523013796055381852, +1.38724756445736787319157243292110386, +1.24356167700547412186326228068641425, +1.02143606687104130815751043945506278, +1.13693304751533730568653711734417074, +1.35128748462268408071502689533623037, +1.22279067835748634290066609765016550, +1.61069588964551624064561907163518908, +1.90296025875650373824286561070110295, +1.87432895257326878439708129394694214, +1.60150184002623276561182974416474845, +1.81977306740217195996840616067775430, +1.07019891878679316588800591907979501, +1.77555131690310534088442286889802669, +1.93049359396632535373953085049159543, +1.20693415466102366731473456469946998, +1.34569072385725130529107082218168526, +1.02497661332599390220998098063133612, +1.16372493493959444581320301979796495, +1.11384970982992289323532869685260544, +1.55112012893965689930491234054119617, +1.04982074690924931555209059770173019, +1.76643382112268253297638250626325780, +1.90571898720579775242234027973422156, +1.47711240659422557557615863243241220, +1.86997958257663182222465095879113210, +1.80811033748524711027241219723288707, +1.17605731944146008746748218213209364, +1.98729778636299527022058284499211102, +1.09048981109110416735275501722769494, +1.35458563980370681245713456625751486, +1.08140945301004442460345979920383980, +1.98293936188958904449648654031237155, +1.45932810019637045205021897667117585, +1.13037769663840572908901872906800758, +1.24857572923300011507109267009312536, +1.25600656390092805695936433743268016, +1.90014118701569110945304294210136446, +1.41926312326036345250771743200185943, +1.75043329202847852547217872300791953

504reltol = sqrt(epsilon(1._TKC))

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, adat, reltol = reltol)

508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

509call setAsserted(all(isClose(data, adat, reltol = reltol)))

510

511

Test:: test_pm_fftpack

Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.

Copyright: Computational Data Science Lab

Author:: Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 1567 of file pm_fftpack.F90.

The documentation for this interface was generated from the following file:

src/fortran/main/pm_fftpack.F90